
Az Országos Commodore Egyesület lapja 


vili. évfolyam 
























flOSBI 


SUKTROMIK 


Urbán István mérnök áramköreinek szakfizlete 


Budapest VII., Dózsa György út 16. (Dózsa—Jobbágy sarok) 
Nyitva: H-P 10-17-lg Tel./fax: 122-8892 
(Zárás után üzenetrögzítő) 


Több, mint tíz éve írok a Rádiótechnikában, vezetem a „Zenei hobt^ elektronika" fejlécű rovatot. A közölt témák 
nagyrészéhez szakQzletemben - működö minta alapján - vásárolhat p^U1elokat, részegységeket, egységcsomagokat. 


KÍNÁLATUNKBÓL; 


SZÁMÍTÁSTECHNIKA: 


C64 bővttdk: _ agys. éleszt. 


RT89/3 

PLOFI Datasseltecatiridge..,. 

..1200 FI... 

„ 1500 Ft 


PLOFI Dalassette/promon. 

..1300 Fi... 

...1700 Ft 


PLOFI DatassetieÁielp. 

..1300 Ft... 

...1700 Ft 

RT89/10 PLOFIFastIoadcariridge. 

..1300 Ft... 

...1700 Ft 


PLOFI Faslioad speedtape.... 

.1400 Ft... 

...1900 Ft 

RT90/3 

PLOFI Simon's canridge. 

..1300 Ft.., 

...1700 Ft 


FINAL lllcanridge. 


... 3450 Ft 


ACTIONReplayVII. 


... 3450 Ft 

RT89/11 Fényceruza, szoftverrel. 

....950 Ft.„ 

...1250 Ft 

RT90/8 

Hangdigitalizáió -t szoftver. 

..1350 Ft... 

...1650 Ft 

HE90/8 

Hangkapcsoló. 

... 300 Ft 


RT89/4 

EPROM-égető. 

.3400 Ft... 

...4500 Ft 


Égető szoftver lemezen. 

.1300 Ft 



Égető szoftveres riridge. 

..1300 Ft... 

...1700 Ft 


User csatlakozó. 

. 300 Ft 


RT91/3 

EPHOM-bar* (256 Kbájl). 

„2900 Fi... 

...4000 Ft 

RT91/10 ICteszler. 

.3000 Ft... 

... 4500 Ft 

RT91/7 

Dalassefte gyorsmásoló. 

...600 Ft 


HE91/7 

Datassetlerejbeállíló. 

...350 Ft 


HE90/12 CPU stopresel. 




. PAGEFOXszövegszetkeszlö. 


...3900 Ft 


Mini EPROM-bank. 

.2300 Ft... 

...3000 Ft 


_ IBM bővítők: _ agys. éleszt. 

RT91/4.5 IBM IC tasztert szoftver. 5900 Ft.9800 Ft 

RT91/11,t2 IBM EPROM^égetö 

t szoftver.4800 Ft.9900 Ft 

RT91/6 48 csal. 1/0 kánya.3500 Ft 


HE92/2 User-Cer4ronicscsallakozó.950 Ft 

RT92.'3 TTL IC katalógus lemezen.600 Ft 

CMOS IC katalógus lemezen.600 Ft 

Dióda katalógus lemezen.600 Ft 

Tranzisztor katalógus lemezen ...600 Ft 


ZENE - HANGTECHNIKA; 


RT87/10 Fuzz-box torzító.670 Ft 

RT9Q/1 KORG DST-1 torzító.1200 Ft 

.KORG DST-3 torzító.1400 Ft 

HE90/1 KORG OVERDRIVE torzító.920 Ft 

RT67/12 Vau-vaugááreflekt.640 Ft 

RT88/9 Sztereó tremolé.980 Ft 

RT8&7 Shifter. 1200 Ft 

HE90/7 Kiszajúgilárelöerösítő.700 Ft 

RT89/5 Sztereóelöerösllö.1500 Ft 

HE91/12 Hangfrekvenciás erősítő.490 Ft 

RT89/8 2x14Wsztereóerősítő.990Ft 

RT89,'12 2 X 40 W sztereó erősítő.1800 Ft 

RT89/1 100 W-os erősítő.1600 Ft 

RT90/3 Ritmusgép 32 ritmussal.2500 Ft 

RT90/10 Dobszinlelizátor...3500 Ft 

RT88/3 Süvöltőgiláreflekt.780 Ft 

RT87/11 Ringmodulátor...995 Ft 

RT92/4 Oklávemelö.700 Ft 

.Visszhangosító MN3005-lel.4800 Ft 


VIDEÓS TÉMÁK: 


RT92/6 RGB generátor.1760 Ft 

RT92/11 PALkóder...1400 Ft 


FÉNYTECHNIKA: 


RT8e/10 Diszkófény II (triak nélkül). 1400 Ft 

Diszkólény II (iriakkal).3000 Ft 

RT88/12 Fényorgona.2000 Ft 

RT90/2 Programozható tutófény.1200 Ft 

RT91/1 8 X 8-as fénymátrix 

+ 16 K EPROM.2000 Ft 

8x8hozLEDpanel 

10 mm-es LED-ekkel.2000 Ft 

RT89/6 Kivezérlésjelzö.700 Ft 

RT91/8 Sziporkázó színgyűrü.650 Ft 

Kétszínű LED.48 Ft 

HE91/10 Karácsonyi lényjáték.70OFt 

HE92/8 KnighiRiderfutófény..950 Ft 


EGYÉB HOBBI TÉMÁK: 


RT88/10 DallamgenerátorZ80-nal. 1500 Ft 

HE91/1 Dallamgenerátor LIM3481-84 .800 Ft 

HE91/5 Dallamgenerátor UM66TXX.480 Ft 

HE91/4 BeszédfelismerőVCP200-zal.750 Ft 

VCP200. 1950 Ft 

HE91/2 Kutyaugatás szintetizátor.800 Ft 

RT91/8 Eb-vezérlő.400 Ft 

HE91/6 Szünyogriasztó.700 Ft 

HE91/9 Multisziréna.480 Ft 


Az árak a 25% ÁFA-t tartalmazzák! 


Választékunk folyamatosan bővül! A Rádiótechnikában, a Hobby Elektronikában megjelent 
nyák-tervek alapján készült nyomtatott áramköri lapok az üzletben megvásárolhatók. 


Bontott anyagok Vidéki oivasóknak segít a szerző levelező, egységcsomagkúldő 

haaznáitmOszerék szolgáltatása: a megrendelt csomagot postán utánvéttel 

b^észdéjo elküldöm. Telefonon/faxon és levélben Is rendelhet. 

A HOBBI ELEKTRONIKÁ-hoz nem kell hosszú levél. Rendelését 
néhány sorban, egyértelműen közölje. 

_ Levélcím; 1656 Budapest Pf. 50. 

Állandóan változó készlet! 

Az Üzletben megvásárolhatók az RT évkönyvei, a Rádiótechnika és a Hobby Elektronika korábbi számai. 




















































































































EGYESÜLET 


t_ 

MIT, HOGYAN, HOL, MIKOR? 


EGYESÜLETI ÜGYEK: Egyesületünknek tagja lehet min¬ 
denki, aki a tagsági díjat befizeti. A tagdíjat személyesen az 
egyesület irodájában (1025 Budapest, Vöröstorony utca 29. 
Telefon: 1-76-22-57), vagy átutalással az MNB 217-98 292, OTP 
565-3610-8 számlára lehet befizetni. Megrendelés esetén szám¬ 
lát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés lehetősége tagjaink rendelkezésére áll. 

A DEÁKPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, a tagsági díj egy egy évre 890 Ft. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, és kapnak havonta 3 db vásárlási utalványt. A tagsági 
díj egy évre 2050 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak a 
C-újságból, és ezzel havonta 15x3 db vásárlási utalványt is. Az 
éves tagsági díj 24 000 Ft. 

ÜGYFÉLFOGADÁS: Minden kedden és csütörtökön 12—16 
óra között várjuk tanainkat és az érdeklődőket. 
PÖTYÖGŐSZOLGÁLAT: Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető személyesen 
az egyesület irodájában vagy postai utánvéttel. Postacím: 1388 
Budapest 62., Postafiók: 86. 

APRÓHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 100 forint. A hirdetés 
módja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-ÚJSÁG RÉGEBBI SZÁMAI megvásárolhatók az egyesü¬ 
let irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk a 1-76-22-57-es telefonszámon vagy 
levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C Áruház csomagküldő 
szolgálatát. 


C-64 C+4 AMIGA PC 


tulajdonosok! 

Várunk benneteket az Országos Commodore 
Egyesület klubdélelőttjén a Havanna Közösségi 
Házban minden hónap 3. vasárnapján, délelőtt 9 
órától. Gépet és hosszabítót hozzatok! 

Cím: 1181 Budapest, Kondor Béla sétány 8. 
Megközelíthető: a metró kőbánya-kispesti végál¬ 
lomásától a piros 136-os busszal. 

Legközelebb: 

május 16-án és 
június 20-án. 



felhívás 


Tisztelt Tágtársunk, Olvasóink! 

Kérjük, hogy ha rendelkeznek olyan működő számító¬ 
géppel, vagy jó állapotban lévő bármilyen számítógép¬ 
tartozékkal, amire nincs szükségük, akkor hozzák el 
egyesületi irodánkba (minden héten kedden és csütörtö¬ 
kön 11—15 óra között). 

Mi összegyűjtjük és eljuttatjuk azokat határainkon túli 
(erdélyi, kárpátaljai és szlovákiai) magyar iskolákhoz. 
Köszönettel: 

Országos Commodore Egyesület 


Tisztelt Szerkesztőség 

Videófilmnyilvántartó 


VIDÉKEN TOVÁBBI INFORMÁCIÓK KAPHATÓK: 
Baja, AXIS Kft., 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA—BIT, 

Pécsi Apáczai Csere János Gimnázium, 

Zalaegerszegi Ságvári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 

Egyesületi iroda és szerkesztőség: 

1025 Budapest, Vöröstorony utca 29. Telefon: 1-76-22-57 

Felelős kiadó: Horváth Judit, az egyesület elnöke 

Főszerkesztő: Rados Péter, az OCE főtitkára 

Felelős szerkesztő: dr. Horváth András 

Művészeti szerkesztő: Bausz Sándor 

Levélcim: Commodore Újság, 1388 Budapest, 62. Pf.: 86. 

Index: ISSN 0237-756 X 

Terjeszti a Magyar Posta 

Megvásárolható a hírlapárusoknál 

92.0305 MSZH Nyomda és Kiadó Kft., Budapest 

Felelős vezető: Nagy László 


Újabb programom azoknak nyújt nagy .segítséget, akik 
C-64-el és videóval rendelkeznek. Ez a videófilmnyilvántartó 
program szerintem .szinte mindent tud, amit egy ilyennek tudni 
kell. 

A programot felajánlom a C-újságban való közlésre. A 
program igaz, nem egy rövid program, de nagyon ha.sznos lehet, 
maximum 200 kazettával tud dolgozni. A program indítása után 
be kell írni, hogy hány videókazettának csináljon helyet. Ez le¬ 
het több is, mintamennyi kazettánk van, a felesleg üresen marad. 
Egy kis időt várni kell, amíg a gép helyet csinál a kazettáknak. 
Ha ez megtörtént, kiíródik a főmenü. A főmenüből különböző 
almenüket hívhatunk. A főmenüre akárhonnan visszatérhetünk 
a ” jel .segítségévéi, az almenükre pedig a ,,t” jellel. Ha a 
program éppen kurzorral kérdez, például akkor, amikor egy ka¬ 
zetta számát várja, akkor ezek után, ,RETURN’-t is kell nyomni. 

A főmenü 1. pontja: ADATOK/BEÍRÁS,TÖRLÉS/ 

Ha ezt válasszuk, akkor megint választhatunk: 

1. - ÚJ ADATOK 

2. — TÖRLÉS 

3. - RÉSÉT 

Ha az egyest nyomjuk, akkor megkérdezi a gép a kazetta 
számát, ahol új adatokat viszünk be, vagy javítani fogunk. Ez¬ 
után a kazetta táblája rajzolódik ki. Itt egy inverzcsíkkal léptethe¬ 
tünk a rublikák között. 
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MÁJUS 


c* 





















EGYESÜLET 


Cf 

A képernyő ilyenkor így néz ki: 


A kazetta száma 


márkája 


hossza percben 



1—^ 1 ^ 

1 

1. 




Idő 


2. 




Idő 


3. 




Idő 


4. 




Idő 


5. 




Idő 


6. 

_2_ 


_i_ 

Idő 



7 - r 

A film címe Számlálószám a film elején — végén / 

A film hossza percben 


Egy kazettán max. 8 filmet tarthatunk (ennél több ritkán 
van). Egy filmhez természetesen nem kell mind a három adatot 
megadni (mettől, meddig, idő). Ha a kazetta adatainak beadá.sát 
belélyeztük, akkor használjuk a illetve a ,,l” jelet. 

A tömenü 1. almenüjének a 2. pontja a TÖRLÉS. 

Itt a kazettaszám beadása után kirajzolódik az adott kazetta 
táblája, azért, hogy nehogy olyat töröljünk, amit nem akartunk. 
A gép alul megkérdezi, hogy biztosak vagyunk-e a törlésben, 
erre ,,rVel, vagy ,,N’-ncl válaszolhatunk. Ha ,,r-t írunk, akkor 
a gép üresre veszi ezt a kazettát. 

A tömenü 1. almenüjének 3. pontja a RÉSÉT. 

Ez nem a programot reseteli, hanem a kazettákat. Ha ,,1’^ 
írunk a biztonsági kérdésre, akkor az összes kazettát üresre veszi 
a gép. 


A tömenü 2. pontja: DISZK HASZNÁLAT. 

Ezután újból választhatunk: 

1. - ADATTÖLTÉS 

2. - ADATMENTÉS 

3. - LEMEZ FORMATÁLÁS 

4. — TARTALOMJEGYZÉK 

Az 1. választása esetén a filenév beírása után betöltődnek 
a kimentett adatok. 

A 2. választásakor szintén a tilenév megadása után történik 
az adatok kimentése. 

A 3. ponttal lemezt formatálhatunk. 

A 4. pont értelem.szerűen a tartalomjegyzék. 

A főmenü 3. pontja: LISTÁZÁS. 

Ezután választhatunk: 

1. - LISTÁZÁS ABC SZERINT 

2. - EGY KAZETTA KÉPERNYŐRE 

3. — EGY KAZETTA PRINTERRE 

4. — AZ ÖSSZES KAZETTA PRINTERRE 

5. — MARADÉK IDŐK PRINTERRE 
Azt hiszem, ezek használata egyértelmű. 

A főmenü 4. pontja: MARADÉK IDŐK. 

Ez a pont a maradék időket írja ki táblázatszerűén a kép¬ 
ernyőre. 

A főmenü 5. pontja: KAZETTÁK FORDULATSZÁMAl. 
Ez kiírja a 180, 195, 240 perces kazetták fordulatszámait. 
Végül a főmenü 6. pontja: PROGRAM VÉGE. 

Ezzel léphetünk ki a programból. 

U. i.: A program mellett a lemezen található egy DEMO 
nevű file. Ez egy kimentett állás, be lehet tölteni. 

Haraszti Árpád 


O 

O 

Ü 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




VlDEOtéflZETTBK 
F'ROGRflH‘ HRRBSZTI BRPBÜ 


195*2 






0 R.Et't 

1 RÉM // 

2 RÉM /'/ 

;3 RÉM // 

5 RÉM // 

6 R.EM .•'/ 

7 R.EM // 

8 RÉM 

9 RÉM 

20 CLR = POK:E5;3280 / 0 * P0t::E5:32S 1,0 

30 GOSIJB1600* ÍMPU'r'‘:*lJMW«JMM-lt-lHV V lÜEOtíRZET t BVBL OOLGOZUMt:'. " , OMÍ- 
:35 OM=VBL‘::OMÍ > * IFÜMCl OR DM>200 THEHRÜH 

90 = 

91 c.Sí="'íii-“ ’Mír="isi “u “B a la la " 

92 OIML<:202> , HEí <:0M+2> / PEí COM-t-Z';*. H0í <'.ÜM-+2,8> , MEíCOM-t-Z , 8 ;■ / J.ÜÍ <:üM+2,8;* 

93 01MHBÍ <: QM+2.8 > / BS' C 20 > 

94 GOSÜB 4000 

100 R.EM 

101 CL03E1 ■CLOSE2*CL.OSE8*CLOSE1í5 

115 PR IMT ©V 1ÜEI.3F ILM-M'V ILVBHTBRTO PROGRBM' 


120 PRIMT' 


FÜMEMU" 


1:30 

PR INT " RllOllC! 


1 “13 

-- BDRTÜt:;»-'BElRRS, TORLES,. 

1:35 

PRINT "W 

::a 

2 

•Ka - 

DISZK URSZNRLRT" 

140 

PR INT “ .KI 

£:a 

3 

•Ka - 

LISTFiZRS" 

145 

PRINT "W 

::a 

4 

■Kü - 

MRR'.RDEIC IDŐK" 

147 

PRINT “W 

::a 


ma - 

KBZe T VBK FORDULRTSZFlMBI' 

150 

PRINT "W 

::a 

6 

“ca - 

PROGIÍBM VEGE" 


THEH GM V GOTO 200.400,600<800,1200,1000 


160 GETBÍ = IFflír=“ “ THENÍ60 
165 V=VRLC.flT> * IFV>0 BHD V< 

IV’0 GOTO 160 
200 R.EM 1- 

205 PRIMT•' riftlfWrt«lW**W»»B»»l»»»iiiW«l»30BT0K.líHTFlLMENU" 

210 PRlHT‘'fltl>M !:a 1 ita - u.l HDBTOI!. VFiGV BDB I VBLTOZrfitBS" 
215 PRIMT"W s;a 2 "fia - EGV K.BZETTB TÖRLÉSÉ" 

220 PR1HT“W s;a 3 «a - rését " 

222 GETBí-= IFfií=" l’'THEM 2:30 
224 ÍFf3í="2“THEH :300 
226 IFR4-=":3"THEM .JO=2*GOTO 1000 
22? IF By="+-"THEM 100 

229 GOTij 222 

230 .Jl=2 = PRlMT":aWRtWí; mi b k.bzettr szrmr 

231 IFK.Z3:=" T“TBEN .11=0^ GOTO 200 

232 KZ=VRLei'.2S:> ’ ÍFKZ>ÜM OR tí:Z=0THEH230 

233 L <. KZ > = 1 * GOSUe 314 
2:35 ■i;><=0= lV--=0 


INPUT KZT' IF K2íF=“ ^-'‘THENJt==0*GOTO100 


O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

ü 

o 

o 

Ü 


o 
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o 
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o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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238 íjETfií : ■£FR3'="'^"THEH im 

239 XF(-|í|=" f'THEK 260 

240 IF Bí="W"THEHGH=2'GOSIJB2?36= Í.K=IX-1 = IF ÍX=-1 THEH 2T-'0 
242 IF flír=":T'THEHi3H=2'G0SUB2í56: 1X=IX+1 : 1FIK=8 THEH 2 'í’0 

244 IF Hír-="|irTHeHGH=2 M30SUB256- tV=lV-t-l = IF IV=4 THEH IV=0 

245 IF R!r = "»l'‘THEHGH=2M3ű3üB256 ’ IV=IV-1 • IF 1V---1 THEH 1V=3 

256 IF IV=3 THEH VV=35 = RWí = ID4<:KZ , 8-IX> 

257 IF IV=2 THEH VV=26 ■ RW4--=ME#TKZ, 8-IX> 

258 IF IV=1 THEH VV-21 = RWí=H0ir<:K2,8-IX> 

259 IF IV=0 THEH VV=4 : R.W4:-HHíf <.K.2/8-IX-' 

260 P0K.E214, <17-IX:<i2;' = POK.E 211 / VV • S'P358732 ■ IF GH=2THEH GH=0 = PP.IHTH?.ETUP.H 

261 PRIHT" a=<"RW» ' 1FGG=2THEHGG=0 = RE TURH 

262 IFRiT— "rV ORBír= " »l"ORH íF= " WORHíf-- "«“ ŰRR.T = " "i3RHír“CHRír-<; 1 3>GRHíl ^CHRíf-T20> THEH 238 

263 f.:T=t;'.Z : K;Z=0 = GH=2 ■ GOSÜB256 ■■ F.Z=RT > R r=0 

264 GOTO 2000 
2í’0 IX=S -IV=0 

271 GET B:T= IFBír="»l"THEHGH=2‘GÜSlje280 ‘ 1 V= 1 Y +1 aF IV=2 THEH lV-0 

272 IF Bí=''íl"THEHGH=2'i3OSi.JB280= 1Y=1V-1 i IFIV=-1 THEH 1Y=1 

274 IF Bí="n"THEHGH=2‘GOSUB2S0-1X~0-IY=0'GÜTO 238 

275 IF Bí = "W" THE.HGH=2‘GOSÜB2Ö0- IX'-Z‘1 Y=0 M30T0 238 

276 IFe9- = “'<-'‘THEH 100 

277 IFeír = " r‘THEH 200 

279 GG=2 

280 IF IY=1 THEH VY=27 • RWít =PET<Tt.Z> 

281 IF IY=0 THEH VY=9 ' RWÍ ==HE3 <;KZ ;• 

282 IFGH=2THEH 260 

283 GOSUB 260 

290 IF B!r=" M" ORBí = "II" ORB» = " At"tJRBS— ... 1 :.3 ;■ OF:B3;=CHRír-C20 > THEH 271 

291 RT=l!;Z = K.Z=0 •• GH=2 = GO8UB280 = t;;Z=RT ' RT=0 

292 00=2"GOTO 2800 

300 PRIHT"TS:iRJR BE R KRZETTR SZRMRT ! J«" 

301 PRIHT":«HR HEH RK.RR TOROLH1-" 

302 PRIHT"RKKOR IRJR BE R .JELET ! aWIaJAS!" 

305 IHF'ü r"»»BiT' aczt' 

306 IF KZÍ-="*-" THEH 180 

307 IF t::Zí="t‘‘ THEH 208 

308 KZ=VRL<;t;;Zír> " IF t:;Z>OH OR K2=0 THEH300 

310 IF L<;kZ>= 0 THEH PRIHT"CÍWAHWtZ R K.RZETTR HEG HEH 18 LÉTEZIK !!"= GOSUB 3088 

311 IFL<;t!:Z>=8 THEH 388 

314 PRIHT“:r‘CSí 

315 PRlHT'Til a“KZ"lí ■«" " PRIHT"'.!"TRB<6;‘"S; - "HEir-f.KZ';" ■ F''RIHT"',T'TRB<26> ; 

316 F'RIHTP£.Í-<;KZ> "PRIHT"!"TRB<:31> " PERCE^3" "PRIHTCSíf 

320 FÓR 1 = 1 TO 8"PRIHT"W" 1"B».'AU'.TIITRl T.TIHírt - liri+'WIDO"" 

321 PRIHTCST 

322 IF 1 = 1 THEHPRlltT"'.Trii»Wlt»r»*»»»*líl»Íí»»»»»WíilT»l»l»tt*#i|*tt»lTAW.l" 

323 IF 1=8 THEH PRIHT" 

:324 HEXT 

327 PRIH'fíWT" •■FÓR 1 = 1 TO 8 

328 PRIHT".!>,»iBi»I»iK5“HRí-';;KZ- I';> "PRIHT"'.!"TRB<;21>H0:íF<;KZ- I';- :PRIHT"'.'J"TRB<:26>HEsr-<:KZ, 1> 

329 PRIHT"!" VRB(.35> lOT-ÍKZ, I > 

338 HEXT 

331 IF JI=2THEH J1=8"RETURH 

333 PRIHT" AlAHIal RKRR...)R TOR.OLHI EZT R KRZET TRT C aiSL-'r+F*;*" 

334 GETRT ' IFRT-=" 1 " THEH350 

336 IFHÍ=""THEH 334 

337 IFR.T = "+-"THEH 108 

338 GOTO 300 

350 1 -KZ " GO SUB1188 " L <. I =8 
355 GOTO 300 

400 REH 2-DISZF: HR8ZHRLRT 

401 CLOSE15"CLOSE2"CLOSE8"OPEHl5-8-15 
405 IF JT=2THEH.JT=8 " GO TO 108 

410 PRlTTT"!Al>flftlA»-lAKii|i*l»»»*»llill»IIOISZK HRSZHRLRTí!»<-RLHEHU')!9AWl" 

415 PRIHT" as:. 1 “üli - RÜRTT0LTE3" 

420 PR.IHT":« 2 “la - rorthehtes." 

425 F'RIHT" Rl zXíl 3 "ta -- LEHEZ FOR.HRTRLfiS" 

430 PRIHT"w Mi 4 "íca - trrtrlohejegyzek:" 

432 GETRT" IFRsr-="-F-"THEH 188 

433 IFRí:=" 1" THEH 4-40 

434 1FRT="2"THEH 488 

435 IFRí»~"3"THEH 518 

436 IFRiF="4"THEH GOSUB 558" GOTO 476 

437 GOTO 432 

448 PRIHT";.a.«AIWil RÜRTTOLTES 01SZKROUWJAl" 

445 Rs(:=" " " IHPUT"lk.A»»llllil»i|#Ml R FI LE HEVE " ; Rí 

447 IFRí="" OR LEH<:;Rí;">16 THEH 448 

448 IF Rí="t"THEH 40i3 

449 IFfiir="-f-"THE:H 188 

450 0PEH2,8,2, "8 " "■■fRí+" , S, R." " GOSUB 5808 " IFVC=2THEHG0T0 20880 

455 FÓR 1=0 TO201 " IHPUTtt2,L< I "HEXT 

456 FÓR I =0TO DH->-1 " IF L1.1 > =8THEHGOSUB1188 " HEXT " GOTO 475 

457 IHPUTTÍ2, HEÍC I " IHPUT«=2. PEÍ C 1 ;> 

458 PR IHT " (Sa" I "II lai" , " F ÓR H= 1 T08 " 1 HF''UT«"2, HRí C I, R> " IHPUTTT2, HOí T I, R 

459 IHPUT«"2- HEÍT I / R;- " IHF'U ( #2, lüí t - R;- " PRIHT" " ; " HEXTR " PRIHT 

461 forr;--- 1T 08 " 1F HRí < 1, K. ;• = " " THEHHRíT <. I - K>--= " 

462 IFH0ÍTI,K;‘ = "“ THEHHOÍC I !í:> = “ 

464 IFHEíCI, (!.;• = "" TFlEHHEíT 1/K;‘="" 

466 IFIÜÍC t-K> = "" THEHIÜÍC I !c:;. = “ 

467 HE.>";TK " IFHEÍ I > = " " THEHHEí <. 1 > = " 

468 I FPEí <; I ;> =.T HEHPEí C 1 > = “ 

469 HEXTl 

475 CL0SE2"6OTO400 

476 GE'TFlí " IF Rí = " " T HEH476 

477 GOTO 408 
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480 flOrtTHEH ieS ÜÍ.SZt:;RE.»:«»«•' 

485 R:*—" IHPÜT"WÍ»»I#»WI[1I R P IL.E HEVE " ; fi* 

48? ]:i" Rí='‘" OR LEHCRí ;‘.->3.6 THEN 488 
488 ir R3 =" f THEH 488 
485* i:Fflí = "-<-‘'THEH 188 

498 OPEMZ,8,a, “8’"+Pi9'.+ " ,8, W" =G0^3UB 5888 aFVC=2THEHG0T0 28888 

495 FÜR 1=8 TQ201-PRINTttZ^EC1>^HEXT 

498 FÓR l=8T0Dt‘R l = IFLC i;‘=8TREHHEXT = G0T0585 

497 F'RIHTtta.NE-TC l> ^ PRIHT#2 .PES^C I > 

498 PRIHT''i»Ol" I"« !4";=F8R R=li08 = PRIHTttZ / HR-TC I , R> = PR IHTtt2. ROíIC I / R;- 

499 PRi:HTtt2<f'1EÍ<: I,R;- :PRIHttt2, iOst^C I., Rí ’PRIHT" ‘ HPIXTR • P-R IHT = MEXTI 
585 CLUSE2 = G8 (0488 

518 PRIHT"r»t a LEMEZ FOF’.MRTRLRS 
512 INPUT "ö HÉV ";Hí 
518 IF HÍ="'rTHEH 488 

514 IF H-<r = "<-“THEH 188 

515 IHP'UfW lO ‘Síi 
518 IF Ií = ‘'4-“THEH 188 
51'7 IF IÍ="T"THEH 488 

518 PRIHT"=»Wftl«a Biz t os VROV R F0RMRTRLRS8RH í. I/H>" 

519 OETflí = IFRí="l“THt;H 524 

528 lFFtí=.I HEH 519 

521 GOTO 488 

524 PRINT «15,"H8 ="Hí“,"Ií 

525 GŰ10 488 

558 PRÍHT#15,"I"=0PEH1,8,2,"í"=G0SUB5888‘IFVC=2THEH GOTO 28888 
552 f'0RX=lT0141 ' GETtt 1', Rí ■ HEX í ■ Ti < 1 ;< = “SEQ“ = Tí<;2;- = '‘PRG" > Tí <;3> = "USR“ 

554 PR.IH'fn" ■ J=1(‘'>G0SUB 598- RT =8 

555 HÍ=BÍ = .Jf=2 ' GOSUe 598 = IÍ=GÍ = GETttl, Rí : 0=2 = GOSUB 598 ^ 0í=BÍ 

558 ^■ORL=lT088=GE(ttl <Rí ■HEXT.‘PR.lHT“lT)fJIDIS2K HÉV' 3"Hí"" ••PRIHT, "10= “Ií“ 0S= "Oí 

559 PRIHT 
568 PRlHf'S;" 

562 F0RP=1T08 = GET#1,Tí,Rí,Rí = 1FTÍ=""THEHTí=CHRíC128> 

564 .J = 15 : G0SUB598 = HÍ=BÍ = GET# 1 / Rí, Rí, Hí, Rí, Rí, Rí, Plí, Rí, Rí, Lí / Hí 

565 L.=RSC<:L.Í >-CHP'.í<.0> > +256»RSCC.HÍ+GHR.Í <;8> > = 1FL=8THEH589 
56? IFSTTHEHCLOSEl=RETURH 

568 1FRSC<Tí >•-128>30R.RSC CT í >-1ZSC1THEHTÍ=CHRí C 138> = G0T0578 

569 PRIHTL ’ PR 1 H f "H" TRB C 5 >CHRÍ <.34 >Hí ; CHRí <'.34 > ' PR 1HT " FI" TRG<'.21 > " " Tí <RSCCTÍ > -128> 
578 RT=RT4 l = IFRTí;;>28 THECH 578 

571 PRIHT"#fiHVOM..J MEG EGV BILLEHTVÜT ! H" 

5'72 RT=0 = GETROí = IFR.Oí=""THEN 572 

573 If-ROí = "THEHCLOSE1 = J 1=2 = RETURH 

574 IFROí="t"THEHCLOSE1= RETURH 

577 PRIHT" '.T-e;" 

578 IFP<8 THEHGET#1,Rí,Rí 
589 HEXTP = G0T0562 

598 Bí=" " : F0RL=8T0J = GET #1, Rí = IFRÍOCHRÍ <.96 >THEHIFRí<:>i:HRÍ< 168>THEHBÍ=BÍ-+RÍ 
595 HEXT•RETURH 
688 RÉM 3- LISTHZRS 
685 CLOSE4,4 

618 PR I HT " l STRZRS:»<-FlLMEHU«.«««" 

612 F'RIHT" aS; 1 Blü - LÍSIRZRS RBC SZERINT" 

615 PRIHT"« se: 2 163 - EGV KRZETTR KEPERHVOR.E" 

628 PR1HT"« SS: 3 Üia - EGV KRZETTR PRINTERRE" 

625 PRIHT" W SC: 4 <863 - HZ ÖSSZES K.RZETTR PRINTERRE" 

627 PRIHC'W se; 5 SCa - MBfíRÜEtC lOOK. PRINTERRE" 

638- GETfií •• IFRÍ="+-"THEH 188 
633 IFRí='‘ 1 "THEH2788 
635 IFRí=" 2"THEH658 
648 IF Rí="3"THEH788 

642 IFRí="4"THEH758 

643 IF Rí="5"THEH1388 
645 GOTO 638 

658 P0K.E214,23!P0K:E211,1 =SVS58732= INPUT-WlTI R KRZETTR SZRMfl " ; KZÍ 

655 IFKZí="-*-"THEH 188 

656 IFKZÍ=" f'THEH 688 

657 KZ=VRL<:KZí;< = IF KZ=0 OR. KZ:>ÜM THEN 658 
668 J I=2 = GOSUB314 

665 GOTO 658 

788 P0KE214,23 = P0t;:E211/1 =SVS58732’INPUT"kMI R KRZETTR SZRMR ";K.Zí 

785 IFK.2í="+-"THEH 188 

786 1FK.ZÍ=" f'THEH 688 

787 R=VRL<;I<.Zí;'= IF R=0 OR. R>ÜM THEH 658 
718 CL0SE4 •• CL0SE.4,4 = GZ=3 = VX=8 = G0SUB753 
715 GOTO 7€l8 

758 F0RR=1 rO ÜM+1 

752 IF L<’.R>=8 THEH HEXT = CLOSE4 = VX=8 • GOTO 688 

753 IFVX::>3THEHVX=3 = 0PEH4,4 = CMÜ4 

754 PR.INT#4," " 

755 PRINT#4,CSí 

756 PR INT #4," a“R"B - "HEí<.R>" / "PEí<.R>" PERCES" 

757 PRIHT #4," -1-1-,-" 

759 F0R.WC=1T08 = PRIHT#4,STRÍ<'.WC>" . I "HRÍ CR/WC> " I "HOÍ <.R, WC> "MEÍ <.R/MO " I IDŐ = " ; 

768 PR.IHT#4, Iüí<.R/WC> 

761 IFWC'C>8THeHPR.IHT#4, "-F-1-1-" 

762 HEXTWC 


763 PRIHT#4," 



888 RÉM 4-MRRROEK. IDŐK. 

815 SW=8=GOSUB 958=PRIHT'SOfl" 

828 FÓR fl=l TO OM+1 = IFL<;R>=0THEHHEXT ■ G0T0908 
825 PRIHT "SS a"R"ll " = PRIHT"'. •e;"TRB<:9>HEí <.R> 
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82e r-'0RI = lT08 = XZ4r=Hftí<:R/ I> =XSt=HOa->;R/ l> !> ■XFí=ID5r<;R, í;* :Llír=" 

827 I F (. X2s»-'.;> •• '• OtíXSíOL 1 Í ŰRXDíTO L £ f > RKD í. OÍ- (:«,£> = •• " THEN X 000Ö 

828 HEXTI ' IFPet<:R;‘ = " "THEHEG-2 

829 IF EG=2THEHEG=--0 =PRINT‘":TTRBt.2GV‘;a ?'• =GOTO 835 

830 GV=0 iPRIHT"n"TflB<;2e> ; •FÜR £ = X TG 8 ‘ GV=GV+Vfil. < 103 f. fi / l > > = HEXTI 

831 PRIHT“ «"VfiL<PE3<.fi> ;‘-GV 

835 SW=SW+1 = 1F SW=20 THEH ÜV=2m30SUB 900 ' >3W=0 > GOSÜB 950 ^ PRIHT"í«ÍI" 

840 HEiKTfi 

900 GETfií-: IFfiT=""THEH 900 
910 IF ÜV=2THEHUS‘=0 ■ RETURH 
915 GOTO100 

950 PRIHT"L’^:;fi2. S2fiM5ai W KfiZETTfi HEVE 531IMfiRfiüEK. 100" 

955 PRIfiT‘'5a---1-1-“ 

957 FORI=lTO 2© 

958 PRINT" I 1"=NEXT 

959 PR INT"-■-■-“ 

960 RETüRN 

1000 r<:EM 6- PRQGRfifI VEGE 

1010 PRllTI"njíWI)«li»ÍIEnZT0S7'Si-''NIlt0Et( fiOfiT TORLOOIR/ «i<;ai«.-'a-lü*;-" 

1020 GETfií =lFfií=“I“fHEN1050 
1022 IF fi3'=“'<-" THEN JO=0 GOTO 100 
1030 IFfi3--=" "THEN 1020 
1040 IF .JO=2THEN.JO=0 ■ GOTO 200 
1045 GOTO 100 

1050 IF .30=2 THEN RUN 

1060 F'RIHTCHRí<;9>-ENÜ 

1100 NE.t<I> = " “ -PEa <; I > = " " = PRINT"ÍS" I = F0RF=1T08 

1110 Hftí-<;i,F>=" “ •H0»<:i/F>=“ " :ME3-<; I ,f;< = " ■■ aoíci ,f>=" 

1120 NEXTF:RETURH 

1200 PRINT"LD«rK»'..£PERNV 0RE VfiGY PRINTERRE CK/P:- ?" 

1201 GETfií-! IFfi3=""THEN1201 

1202 IF fi3-0"P"THEN 1209 

1203 CL0SE4,4'CLOSE4 = OPEN4,4 = CM04■PRINT" 

12.04 PR INT <14, “ a fi RfiZETTfiK FOROULfiTSZfiMfil " 

1205 FRINT<14,,"a 180 Ü^'ERCES ‘ 0000-6062" 

1206 PR INT <14,, "a 195 WERCES > 0000-6405" 

1207 PRINT<14,,"a 240 WERCE8 = 0000-7771" 

1208 GOTO 100 

1209 PRINT"n Iia fi F.fiZETTfiK, FORDÜLfiTSZfiHfil ■I.WWjM" 

1210 PRINT, "IWUlWiaa 180 “SaF'ERCES ■ !#3000-6062" 

1220 PRINT,"HW3ia 195 SCa-'ERCEB = :3í)000-6405" 

1230 PRINT,"ll«aa 240 waF'ERCES = :fel000-777l" 

1240 GETfií- = I F'fií-t;:. “ " THEN 100 

1241 GOTO 1240 

1300 RÉM MfiRfiOEtf. IDOIÍ PRINTERRE 
1310 CEOSE4,4 = CLOSE4 = OPEN4,4‘CMÜ4 
1315 PRINT#4," 

1320 PRINT#4, "K.SZfiM 1 (í.fiZETTfi NÉV IMfiRfiOEK. lOO" 

1330 PRtNT<14, "-1-1-“ 

1350 FÓR fi=l TO ÜM+l ‘ lFL<.fi>=0THENNEXT = GOTO 600 
1355 WG=4-LEN<;8TR3-<.fi> ■ Űfi=16-LEN<.NE3 <.fi> > 

1360 PR,1NT<Í4, " a"fi"S"SPC<;WG> “ 1 "NE3<.fi> ; SPC<:Qfi> " l " ; 

137’0 F0RI = 1T08 !XZ3=Hfiir<.fi, I > 'X3í=H03<.fi, I> • XÜ-‘r=ME3-<.fi, I > ■ XF3-=IDÍ Cfi, I > •Llí=" 

1380 IFCXZa-O" "ORX83'<>LIíORXD4<>L14;'fiNOIOíf Cfi, I > = " " THEN1500 

1390 NEXTI • IFP£4^<fi> =.rHENEG=2 

1392 IF EG=2THEHEG=0 'PRINT<I4, " ?“:G0T0 1410 

1393 GY=0 = FOR 1 = 1 TO 8 = GV=GY+VfiL(. 103 Cfi, I > > = NEXTI 
1395 PRINT<t4, VFlL<;PE3 ifi;. ;.-GY 

1410 NEXTfi.GOTO600 
1500 EG=2=G0T0 1392 


1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 


PR1NTCHR3<; 14>CHR3<:8> "H aaX:.--T—vLx-l-.UXÍ,-'! ♦-1 C I4"l -« ■•“!" 

PRINT“*lRl liWEGITSEG fi PROGRfiM fifiSZNBLfiTRHOZ 
PRINT"KÜ«n * PROGRfiM ELO>3ZOR MEGF-ERDEZI , HOGY" 

PR INT" HfiNY RflZETTfiVflL KIVfiNUNtí; DOLGOZNI, EZ" 

PR INT" ■'..♦4. 200 LEHET. <>2 EZUTFlN <;;iRfi..tZOLOOO" 

PRINT" SZfiM.BORON fi LfiTHfiT.JUC;, HOGY HOL TfiRI" 

PRINT" fi PROGRfiM fi TfiRHELYER MEGNYITfiSfiVfiL." 

PRINT" Ifi EZ MEGTÖRTÉNI, fi ~<-V"V .4 LfiTHfiT.TUc;. " 

PRINT" fi FŐMENÜBŐL KULONBOZO t'L''w'HIVHfi-" 


1690 
1700 
1710 
1720 
1730 
1890 
1895 
1900 
2000 
200 1 
2005 
2010 
2020 
2025 
20.30 
2035 
2040 
2050 
2060 

2065 

2066 

2070 

2071 

2072 
2075 


PRINT" TÜNR. *2 HLMEHUBOL VfiLfiSZTUfiT-iÜR Rí fi" 

PRINT" MEGFELELŐ FUNRCIOT. fi FŐMENÜRE BfiR-" 

PRINT" HONNrtN VISSZfiTERHETUNR fi ai'X-'BILLEN-" 

PRINT" TYU SEGITSEGEVEL, fi RIVfiLfiSZTOTT HL-" 

PRINT" MENÜRE PEDIG fi =»'T'' ütíILLENI YüVEL. " 

PRINT" fttj«l H3 MUHF.FIV RIVfiN fi PROGRfiM IRO..)fi . l-iUKÍMSIMIllllllCa IfiRfiGZT 1 l-RPfiD" 

GETfií.IFfi3=""THEH1895 

PRINTCHR3<;9;.CHR3i 142>CHRír.<'.8;. RETÜRN 

FÜRfi=l TO 16.fiíifi;. = " "M'IEXI 

If 00=2 THEN IF IY.=0 THEN WE=16 

IF 00=2 THEN IF IV=1 THEN WE=3 

IF 00=2 I'HEN fi3«; 1 >=B.3 "GOT02050 

IF IY=0 THEN WE=16 

IF IY=1 THEN WE=4 

IF IY=2 THEN WE=4 

IF IY=3 THEN WE=3 

fi3<i;.=fi3 

P0RE214, 17- IX*2 = PORE211 , VY SYS58732 . PRINT" a"fi:r.i 1 . 1=2 

GETfií i I ;* 

£Ffi3<.I > = "< "THEN 00=0 .GOTO lOO 
IFfi3<•. I ;< = " 1" THEN 00=0 = GOTO 200 
IFfi3iI>=CHR:r.C13;. IHEN FV3<. I,' = " "=GOTO 2150 

IF Fl-T-i I ;.=CHR 3 < 20 >THENIFI>lTHEHfi 3 <. I> = " " •• 1 = 1-1 : PRINT "ül «" ; .fi 3 < 1 ;- = " " =GOTO 20 G 0 
I Ffl 4 : <; 1 = " " THEN 2060 

IF FY3C<fi3C. I ;‘>>.31 fiND F<SCifi3C I > >-Cl26 THEN PRlNTfiT-i I ' GOSUB 9000=GdTO 2100 
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2Ö80 GOTO 20GÖ 

O 2100 IF HF=2 (HEH HF=0=GOTO 2150 O 

2110 GOT02060 
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2150 IF DO=-2 THEHIFIV=0 TíMEH 2200 
2152 IF ÜÜ==2 THEH IFIV=1 THEH 22.20 

2154 IF 1Y=0 THEH 2200 

2155 IF IV=1 THEí-i 2240 

2157 IF IV=2 ■( HEH 2250 

215Ö IF IV=3 THEH 2260 

2200 HEíJ-<;(TZ> = •"•: f: ü(< I = 1 VO16 = HEíT CU.Z> =HEíIP<(ÍZ>-H^ lí í I > ^ HEXT ^ Ft-19^==HEír C(ÍZ > ‘ GOTO 2500 
2220 PE3 -<;(í:Z> = "" •■FÜR.t = lT03iPE4<.(íZ,''=(^£!r<:(ÍZ>+fií-(. I;- HTEXT 'RM4=PEír-í(ÍZ> 'GOTO 2500 

2230 cx=8-“ i• HB4<(ÍZ. c'x;• =" “ •• F op 1=1 ro 16 ■ HH4 <: (íZ - cx> =(-iHa- <(íz .. c:>í>+F(ítí i > ^ (-(Ext ■■ got 022.35 

2235 ívM»=HÍ=(.4<;(ÍZ/ex;* 03O'('O 2600 

2240 CX=8""IX •• HOí(-<.(ÍZ,CX;' = ‘' " ■ ("0F-.I = 1T04 • HO-TÍIÍZ/CX>=(-!O.TÍ(ÍZ/ CX>-( F!4Í 1 > H(EXT ‘G0T02245 
2245 (íl‘1if=H0arí(í2,CX;> "GOTO 2600 

2250 CX==0'- 1X " (TÉTí (ÍZ, CX > = F ÓR 1 = 1 V04 " HÉT í (íZ / CX> =HET í (ÍZ/ CX> +0^1"í I > ’ HEXT ■ G0T02255 

2255 RI1T=(TE:rí(íZ/ex? " GO'I O 2600 

2260 CX=e-lX" ... . . IDT í (ÍZ, CX> = í OT Í(ÍZ / CX>+HTÍ I > " HEXT " G0T02265 

2265 RMT=ID.TÍ(ÍZ/CX> "GOTO 2600 

2500 GFl=2 ' Fl>(T=KH:ír " GÜSUB260 " 00=0 " GOT0271 

•2600 GH=2 " RW!r=RHT " 0080(3260 " 00=0 " G0T02:3>3 

2700 PRI((T'‘'::MB(«»irrJííEPERHYORE, VFtGV PRlH’lEFlRE í(í.XP> 7" 

2710 GETHT" IFhíF=“(í“THEH2V'50 
2720 IFHT=“P"THEH2900 
2730 GOTO2710 

2750 PRlHCTSÍi-1-r-,-1-1" 

2760 PP.IHT" 1 FILI-I HEVE li'KZ Í Ti. (HtIDDG ( IDŐ Í(ÍRZ, ( " 

2770 PRIHT" P— -—-(-■(•— (■-F 

2774 FÓR R=ITO20"PR.IHT" I I ( I i (""HEXT 

2776 P(ÍIHT" ’--—'-"-- 

2777 IF VQ=2THEI't P.ETURH .. 

2700^'USty0 ‘ F OR. t =±65 f 0 ;í' 5 " (- 0(?'.(:>"=» VVODH-(-1 " FORF,= 1 T0I3 " IFEEF TT í H(3Tí D, F > . 1 ■> =CHRTí 1 > THEH2800 
2785 HEXTF / O, I'" GOTO2850 

2800- PR IH I" »|a("H!TT í Ü / F > "»»»" HOTÍO , F- ;< " í»ll" ('■(ETí O. F > "»■(!»" 10-T í 0 / F > “»W D 

2810 UX=UX+1"IF ÜX=20 T(-(EH OC= 1 " GOTO2Ö50 

2820 HEXT(-,Ü,l 

2850 GETRT" lFRT=""THEI-(2850 

2855 IF 00=1 THEH OC=0"OX=0’VO=2"ŰOSOB2750’VQ=0"eOT02785 
'2860 OOTÜ 600 
2900 ('(EH 

2S'05 CLOGE.4,4 " CL08E4 " OPe;i-44,4 " Cr'lD4 
2910 PRIHFtt4." 

2920 PRIHTW4," r-—--—>---r- r -t- 1" 

2930 PRlHTtt"4. " I FI(_M. HEVE (HÉTTŐL IMEÜO 10 l IDŐ KÍC^íZ. I" 

'2940 PRÍHltt4,“ (---F-1-+-F-1" 

2942 UX=0 " r- OR 1 =65T095 " FORD=i TOOH-t-1 " FORF = 1T08 " IFLEF TTCHF(TCD / F :■ / 1 > =CHRTC I > THEH2945 

2944 HE:XT(- , D , 1 " GOSI.JB2980 " GI3 TO600 

2945 (=-RlHTtt4." I"H(-(TÍD, F > " ll«T‘((0.TÍCO F'." "Hl l»l"HE.TÍDy F> "WH " IOTÍDH--> " l"D, "GOTO 2970 

2946 OX=UX"t-1 " IF ÜX=20 THEH UC= 1 " G0T02944 
2950 HEXTF.0,1 

2965 " 

2966 " 

2967 GOSUB29S0"GOTO600 

2970 Ci:!T=3TRTíD> " (ÍQ=3-<;lEHÍCQT> > " PRIHTtt4. SPCÍ (ÍQ> " I “ " 00702946 

2980 (•■■RIHTtt4. " ‘---‘-'-'-‘-"RETURH 

3000 POR 1=0 TG 1000"HEXT"RETURH 
4000 ÜZ=0"DF = 1 

4003 PRIHT'TMn I ( ( l t" 

4004 PRIHT" 40 80 12:0 160 200" 

4005 PRíHT"ai" ; "FÓR R=0 TO DM-i-1 " F 0IH.3=1T0 8 " F((TT<:R .. B> =" 

4010 (-iot<:r,b';-=" " "Het<;r,b>=" " rüTíR.B;<"=" 

4020 HEXT " PRIHT"í51" ; " FORD=0TODZ " PRIH'C'Sia IS" ; " HEXT " DF=DF"H 

4021 PR1HTH í DT í HT.0F*2-1.2 >" t (■ÜF=6THEHOF=0"DZ=DZ+1 
4024 (TEX'C 

402;5 F ÜR R=0 TO DH-H " HEtíR',' = " ""PETÍR> = " "" HEXT " RÉTI IRH 

5000 R=0 " BT=" " " C=0 " 0=0 " IF(PLrrttl5, R, BT, C, O 
5010 IFR’>=0 RHÜ R"::= ly ( HEH RE l URl'( 

5019 H=0 

5020 (HÍIFVT"i«n(ll(«l>,ÍWl«R(Wm^^^ HIBR ! PORI = 1T075 " HEXT " PRIHT"; 

5021 (^RINT" “"H=FH1 

5025 IP H=13 (THEH VC=2" PRIHT "«;«.W«!WWR(jJ..1>'.MRI!45( HIBR ! •""RETURH 

5030 FÓRl=1T065"HEXT"GOTO 5020 

9000 IF I=WE THEH HF=2" RETURH 

9010 I = I -H RE 'TURí'l 

10000 EG=2"GOTO 829 

•20000 CÍ-.0SE1 ’C(_0(3E2"CL08E.8"PRIHTttl5. "I" "VC=0"GOTO 476 


O 
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Tisztelt Szerkesztőség! 

Mellékelten megküldök egy olyan programvázlatot, ami a 
KERÉKBÁR című TV-műsor mondatfeladványaihoz hasonlóan 
működik. Itt azonban egy szót kell kitalálni, annak magánhang¬ 
zóit is. 

A vázlatot úgy készítettem el, hogy a működést minimálisan 
biztosítsa. A feladványsz.avak a kötöttségek mellett (1500-as, 
6800-as sorokban) szabadon változtathatók. Remélem, csábítja 


EGYESÜLET 


az olvasót a saját elképzelések (pl.: grafika, mondatfeladvány) 
készítésére. A munka megkönnyíté.se érdekében nagyléptékű a 
sorszámozás, és a megértéshez szük.ségcs minden megjegyzés a 
REM-ek mögött található. 

Már a program készítése és változtatá.sa is jó társasjáték le¬ 
het! Jó szórakozást kívánok annak, aki kedvet kapott hozzá! 

Tisztelettel: 

M. S. 


1000 

1100 

1200 

1300 

1400 

1500 

1600 

1700 

1800 

1900 

2000 

2100 

2200 

2300 

2400 

2500 

2600 

2700 

2800 

3000 

3100 

3200 

3300 

3400 

3500 

3600 

3700 

3800 

3900 

4000 

4100 

4200 

4300 

4400 

4500 

4600 

4700 

4800 

4900 

5000 

5100 

5200 

5300 

5400 

5500 

5600 

5700 

5800 

5900 

6000 

6100 

6200 

6300 

6400 

6500 

6600 

6700 

6800 

6900 

7000 


RÉM SZOKERESO MUKODO VAZLATA 

RÉM SOFT:MESTERHÁZI CELLDOMÜLK 1992. 


RÉM beállítások *** 

CLR:DIMZS$(30),SS$(16) :RÉM 
READZS$(S) ;REM 
lFZS«(S)<>"tt"THENS = S+l :G0T0 


P $ = " nínTHTHliiIiil-ar : P R 1 N T P $ ; 
SZ$=ZstTTNTTRND(0)«S)) 
H0%=LEN(SZ$) 

FORI=1T0H0X 

SS$(I) = " ’*:PRINT"^"; 

NEXTl 

K% = 0 

PRINT"^W" 

INPUT" KEREM A BETŰT ; 
K%=K%+1 


RÉM 

RÉM 

RÉM 

RÉM 

RÉM 

RÉM 

RÉM 

; A$ : 


TORLES:30 DATASZO MAX.16 BETŰS 
SZAVAK TAROLASA 
1600 

KEPTORLES SORRALEPES 
VELETLENSZAM A SZOVALASZTASHOZ 
SZOHOSSZ RÖGZÍTÉSÉ 
FELADVANYSZO HOSSZÁBAN 
SZOROZOK A SS$(I)-BEN 
ES BETŰSZÁM JELZES 
KISERLETSZAM 0 


RÉM 

RÉM 


BETŰ BEVITEL 
KISERLETSZAM 


NOVELES 


RÉM ELLENORZES/ATVETEL »»» 


F0RI=1T0H0% sREM TELJES HOSSZBAN 

IFMID$(SZ$,I,1)<>A$THEN3600:REM AZ EREDETI BETŰK ELLENŐRZÉSE 
SS$(I)=A$ :REM HA EGYEZNEK BEKERÜLNEK 

NEXTl :REM AZ EREDMÉNYBE 

RÉM TALÁLATOK KIIRASA 

PRINT"® 0";:FORI=lTOHO%:REM TELJES HOSSZBAN 
PRINTSS$ri); :REM AZ ELTATALT BETŰK ES SZOROZOK 

NEXTl:PRINT :RÉM KIIRASA 

PRINT:PRINTTAB(K%);A$ :RÉM TIPPEK JEGYZESE 

RÉM FOLYTATAS/VEGE *» 

j%=0 ;REM MUTATÓ NULLÁZÁSA 

F0RI=1T0H0X :REM VAN E MEG EL NEM TALALT BETŰ 

IFSS$(I)=" "THENJ%=1:REM A MUTATÓ 1 LESSZ HA VAN 
NEXTl 

IFJ%=1THEN2500 :RÉM ES VISSZA UJ KÍSÉRLETRE 


RÉM EREDMÉNY 


PRINT"aSreil KITALALTA"K%"|1 KÍSÉRLETBŐL!" 
PRINT"g0^ MEG EGY JATEK(I/N)?" 

GETX$;TFX%=""THEN5700 :RÉM VÁRAKOZÁS 

IFX$="I"THENPRINTP$:!GOTO1900 :REM UJ SZÓRA 
END 


REM FELADVÁNY SZAVAK *** 

DATA"CSIPKEREK","VASKAPU" 
DATA"MAGYARGENCS","KENYERI" 
DATA"KARAKO","AJKA" 
DATA"SZOMBATHELY", "SOPRON" 
DATA"COMMODORE-64* 

DATA"JO.SZÓRAKOZÁST. !" 

DATA"I" 

DATA"#" 


READY. 


O 


O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


REM 

TETSZŐLEGESEN 

O 

REM 

VÁLTOZTATHATÓ 

O 

REM 

A MENNYSEGE 

REM 

CSAK DIMZS$(X)-NEL 


REM 

TÖBB NE LEGYEN 

o 

REM 

SZOKOZ NEM LEHET!! 

REM 

AZ UTOLSO... 


REM 

... EZ LEGYEN ! ! 

o 



___ o 
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REL vagy SEQ 
adattárolás? 


Gondolatok e kérdés ürügyén 


Egy vitatható kérdésről szeretném leírni a véleményemet, 
tapasztalataimat: a COMMODORE 64 és a VC-1541 FLOPPY 
adatkezelési lehetőségei közül melyik az előnyösebb. 

Mióta a számítógépet feltalálták valószínű, de a fenti szerke¬ 
zetek megépítése óta biztos tart a vita a szakemberek és az amatő¬ 
rök között egyaránt: melyik adattárolási mód.szer előnyösebb a 
soros (SEQ) vagy relatív (REL) filetípus. Sokszor olyan szemé¬ 
lyek mondanak megfellebbezhetetlennek tűnő véleményt, egyik 
vagy másik filetípus mellett, akik a másikkal nem is dolgoztak. 
A .szakkönyvek is gyakran érvelnek az egyik vagy a másik mel¬ 
lett, ezzel indokolva témájukat. Például BASIC programozás 
magasiskolája C64-esen, 88. o.: 

— A soros (SEQential) fiié meglepő módon a leggyakrab¬ 
ban használt file-típus. Olyan feladatokra is alkalmaz¬ 
zák, amikor egyáltalán nem praktikus, ugyanis gyakran 
kell a tárolt adatok között keresni. 

Ezután felhozza a könyv a felgombolyított zsinór példáját. 
Ez röviden: 1(X) méter zsinórt felgombolyítunk, közben egy da¬ 
rabot pirosra festünk, majd feltekerjük; ha ké.sőbb a piros darab¬ 
ra lenne szüLség, az egé.szet le kell tekerni, hogy megtaláljuk. 
(Eddig a példa a SEQ adattárolá.sra.) 

Könyv kérdé.se: praktiku.s? A vála.sza: nem! 

A véleményem: ez több dologtól is függ! 

Az én példám a (REL adattárolásra): 

A piros zsinórdarab könnyebb megtalálása érdekében ezt a 
zsinórt egyenlő hosszúra vagdossuk, jelöljünk be a zsinórdara¬ 
bokon azonos ho.s.szakat, s ezek közül egyik részt fessük be pi¬ 
rossal! Ezután tekerjük fel külön-külön az egyes darabokat kis 
gombolyagokba; c.somagoljuk be kis tasakokba, írjunk sorszá¬ 
mot rájuk (vagy tegyük számozott fiókokba)! Ha ké.sz, keressük 
meg a piros zsinórdarabot! Ha nem jegyeztük fel a tasakszámot, 
rángathatunk ki minden fiókot (egyszerre csak egyet), leteker¬ 
gethetjük a kis gombolyagokat. Ha megtaláltuk végeztünk is. 
Még szerencse, hogy visszatekerni nem kell! 

Praktikus ez? 

A könyv szerint: igen. 

A véleményem: ez több dologtól is függ! 

Elméleti megfontolások alapján állítom, a SEQ fiié alkal¬ 
mazásának hátrányait többféleképpen lehet csökkenteni. A REL 
filetípusnál ennek egy módja van, mellékelni kell egy kimuta- 
tá.st, melyik zacskóba mit tettünk. Ha van ilyen kimutatásunk, 
a praktikusságon már vitatkozni sem lehet! De ki ül úgy szíve.sen 
a számítógép mellé, hogy az általa feldolgozott adatokról még 
külön nyilvántartást is vezessen?! Én nem, ezért is vitatkozók! 

Adatfeldolgozás során mindig először azt a kérdést kell cél¬ 
szerűen eldönteni, melyiket válasszam? Lehet, hogy a harmadik 
a célszerű: READ/DATA feldolgozási módszer, hiszen ez a leg¬ 
gyorsabb, sokoldalúan ha.sználható! 

Mikor kell a filemunkákat választani? Csak akkor, ha: 

— felhasználói programot készítünk, amelyet több .személy 
használ (eladásra); 


— a kezelő programot védeni kívánjuk, ezáltal nem módo¬ 
síthatjuk; 

— több vagy nagy (vagy változó) adatállományt kell 
kezelni; 

— nem számít a FLOPPY működé.sénck lassúsága; 

— túl nagy az adatállomány, a programban nem fér el 
READ/DATA formában. 

Alapelvként megszívlelendő tanács: ha lehet, ne írjuk az 
adatokat .sehova, ha megfelel a READ/DATA! A READ/DATA-t 
is csak akkor, ha az adatösszefüggések képlettel nem írhatók fel! 
Ehhez ugyebár megint kell valami (könyv és tanulás) pl.: 

Voss: Bevezetés a stati.sztikai számításokba C 64-en 

Bálint Ágnes, Tátrai Ferenc: Gyakorlati statisztikai szá¬ 
mítások. 

Miután e kiadványokat áttanulmányoztam (az első program¬ 
jait legépeltem, a másik lemezét megvettem), a szerzett ismere¬ 
tek birtokában, teljesen másképpen látom az adatfeldolgozást, 
mint a gépek kezelési könyvei alapján. Nem vagyok, és nem let¬ 
tem statisztikai szakember, de például nagy értékelési táblázatok 
adatait néhány képlettel sikerült helyettesíteni; érdekesen előjöt¬ 
tek a táblázatok hibái is! 

Közben úgy hozta a lehetőség, hogy megismerhettem, hasz¬ 
nálhattam a SUPERBASE64-et is. Kipróbáltam a használatát, 
programozását, munkahelyem stati.sztikai munkáinak egy részét 
azon készítettem el. Nem túlzás azt állítanom, hogy megfelelő 
kezelési és programozási tapasztalatokat szereztem. Azoknak 
ajánlom, akik minimális .számítógépes ismeretek birtokában 
.szeretnének adatfeldolgozás.sal foglalkozni. Nagy segédeszköz, 
lehetővé te.sz minden műveletet program- és parancsmrxlban 
egyaránt! Egy bökkenő van itt is: mindezt meg kell tanulni! Ha 
a könyv vastagságára és kb. +70 BASIC utasítására gondolok, 
nem kis feladat, különösen egy angolul nem tudó kezdőnek! Ha 
valaki erre szánja magát, a C64 kezelési utasítás helyett tanulja 
meg a könyvet, felejtse el a SEQ/REL dilemmát, mert más vi¬ 
lágba jut, ott ez már nem lehet kérdés! Ez a program egy nagy¬ 
ágyú a C64-hez, könyvelési célokra is alkalmas, a lemeze máso¬ 
lás ellen blokkhibával védett. Könyvelési célokra nagyobb gé¬ 
peknél már jobb programok is futnak! Én inkább gépet c.scrélnék 
ilyen célra! 

Most vissza az eredeti problémához: SEQ vagy REL? 

A REL fiié nagy előnye, bizonyos (említett) feltételek mel¬ 
lett, hogy gyorsan hozzájuthatunk egyes adatokhoz, kevés adat 
kerül a memóriába, így hosszabb (akár 100—120 blokkos) prog¬ 
ramot írhatunk. Ez lehetővé teszi a többrétegű szolgáltatást, a 
bővebb kezelői információt. Ugyanakkor c.sökken az adatok el¬ 
vesztésének lehetősége is. Áram.szünct esetén csak egy rekord 
veszik el! 

Ám ennél több előny nincs! A DISK blokkjaival is pazar¬ 
lóan bánik, teljes rekordhosszban ír-olvas minden műveletet, 
így én nem csodálom (az említett könyvvel ellentétben), hogy 
sokan a SEQ file-t választják! 
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Képzeljük el, ha az a feladat, hogy egy REL file 100 rekord¬ 
jának adatait össze kell adni: 100 pozieionálás, 100 beolvasás, 
100 adatbontás, 100*X összeadás, (100 információkiírás) ered¬ 
ményeként lehetséges. Ez bizony a közismerten ,,lusta” lemez¬ 
egységnek percekig eltarthat. Ha nincs megfelelő tájékoztató a 
képernyőn a műveletekről, előfordulhat hogy a kezelő hibát sejt¬ 
ve a gépet is kikapcsolja! 

Egy kb. ekkora adatállományú SEQ file beolvasása fél perc 
alatt ké.sz, az összegezés művelete pedig csak néhány pillanat! 

A SEQ file lemezmunkája egyszerűbb, az adatműveletek 
(másolás, beszúrás, törlés, csere, számítások) a memóriában 
történnek, kiiktatva a lemezegységet. Ha az adatállomány kész 
(szándékunk szerint közben is mentési céllal), akkor írjunk le¬ 
mezre egy megadott névvel. Az említett munkálatok a REL fiié¬ 
néi nem, vagy nehézkesen végrehajthatók. Ezért általában az 
ilyen adatkezelő programok ezeket nem is tartalmazzák! 

Itt a legnagyobb problémát a memóriaterület korlátozottsá¬ 
ga jelenti. Közepes méretű adatállomány kezeléséhez már nem 
írhatunk 50—60 blokknál hosszabb programot. A BASIC prog¬ 
ramnak és az adatoknak el kell férni egyidőben a memória BA¬ 
SIC területén! Ha nem, hibajelzést kapunk! Itt van igazán szük¬ 
ség a HELP PLUS-ra, a BASIC COMPRESSOR-ra és a gépi 
rutinokra, programozói találékonyságra! 

Mielőtt valaki SEQ adattároló program írásába kezd, alapo¬ 
san gyakorolja a tömbváltozók (mátrixok) használatát! Ezek nél¬ 
kül a programok hos.szúak lesznek, a változók között nehéz lesz 
kiigazodni. íme egy példa: 12 megnevezés adattal a képernyőre 

FOR1=OTO11:PRINTA$(I)": ''A(I):NEXTI 

Gondoljunk bele más típusú változókkal mennyit kellene 
írni! Aki SEQ filckezelők írásánál megszokta (mert itt szüksé¬ 
ges) a tömbváltozókat (mátrixokat), biztos máshol is alkalmazni 
fogja. Olyan ez mint a struktúráit programozás: aki megszokta, 
hogy programjának törzse szinte c.sak GOSUB-okból áll, mindig 
így dolgozik. 

A leírtak miatt a SEQ filckezelők a programszerzőket na¬ 
gyobb feladat elé állítják, a programtechnikát itt kell igazán csi¬ 
szolni. Nem engedhető meg például a ,,magasiskola” hosszú 
szubrutinjainak használata! Minden apró programozási ötlet 
(rövid .szubrutin) memóriaterülctet adhat az adattároláshoz. Egy 
mindenki által jól kezelhető, jól struktúráit programban a memó¬ 
ria nagy részét a kezelői információk foglalják el, ezzel is szá¬ 
molni kell! 

Ha a felhasználói igények nem te.szik lehetővé a megfelelő 
rövidségű program írását, nincs más megoldás a programot kettő 
(több) részre kell bontani. Ez nem kettévágás, hanem megfelelő 
válogatás; a végrehajtandó műveletek szerint kell bontani! 

A SEQ filekezelés hátrányai körültekintéssel nagymérték¬ 
ben csökkenthetők. 

A nagyobb adatállományokat egyéb munkák (előkészüle¬ 
tek) alatt betölthetjük. Kisebb állományokkal dolgozhatunk. 
(Nem kell az összes zsinórt egy gombolyagra tekerni.) Pl. .sze¬ 
mélyi adatok bontá.sa lehetséges: szervezet, lakhely, születési év 
alapján. Ennek a munkálatait megírni viszonylag egyszerű. 

Tetszik az említett könyv alábbi gondolata. 

— A végletekig leegyszerűsítve a számítógépes adatfeldol¬ 
gozás három lépésből áll: valami bemegy a gépbe, ott 
benn valami történik, végül valami kijön a gépből. Ter¬ 
mészetes, hogy számunkra az a legtbnto.sabb, ami kijön. 

Én ehhez azt is hozzáfűzném, hogy a csixlálatos dolgok ott 
benn történnek; olyan elektromos csodák, amelyek csak emberi 
gondolatok alapján létezhetnek! Ezeket a gyakorlott programo¬ 
zók lehet, csak ismerik (nem biztos, hogy értik) és felhasználják, 
vezérlésükre képesek, mert nekik ez a feladatuk. 

Az érdeklődő pedig csipegeti a morz.sákat, amit itt-ott szak- 


irodalomban, újságban megtalál! Minden morzsáért érdemes le¬ 
hajolni, de megenni mindet nem szabad! Mégis minden használ¬ 
hatónak látszó ötletet célszerű kipróbálni, hiszen ezek adják a 
tapasztalatokat! 

Megjegyzem azt is, hogy a könyvesboltokban ma már csak 
elvétve kapható, jelenleg használt könyvek zöme 8—10 évvel 
ezelőtt íródott. Lehet, hogy szerzőik ma már több dolgot más¬ 
ként látnak, ma már másként fogalmaznának. A programlisták¬ 
ban előforduló hibákat a BASIC értelmező, vagy a nem megfele¬ 
lő eredmény jelzi, de az elvi tévedések, a vitatható információk 
ellen a tanulót semmi .sem védi! 

Itt van nagy szerepe a COMMODORE ÚJSÁG-nak, hogy 
a jelenleg összegyűlt tapasztalatokat az érdeklődők számára köz¬ 
vetítse, az eltünedező szakirodalom hasznosítható és fontos in¬ 
formációit időközönként feldolgozza. Ez nem lehet plágium, 
mert erre más lehető.ség nincs, mert a C64-es könyvek kiadá.sa 
— úgy látszik — már nem jó üzlet a kiadóknak. 

Sok-.sok akadályt kell leküzdeni, sokat kell tanulni ahhoz, 
hogy egy C64—VC1541-printer (3 elektronikus memória) szol¬ 
gáltatásait birtokolhassuk, kiha.sználhassuk elsősorban munka¬ 
végzésre. Mégis miért érdemes mindezért pazarolni az időnket, 
az elektromos áramot és gyakran idegeinket is? Mert minden te¬ 
kintetben jó (pl. felesleges rutinokat nem tartalmazó) programot 
a szerző csak saját részére készíthet! íme a magyarázat az egyik 
adatfeldolgozó programom ajánlá.sából. 

— A napi munkában jól használható program csak akkor 
készülhet, ha a felhasználó igényeit a szerző teljes mér¬ 
tékben ismeri, mert a programozási feladatokat célrave¬ 
zetőén megfogalmazni csak így lehet. Állíthatom, hogy 
a használati igények feltárására még a sorozatos konzul¬ 
tációk .sem teljes mértékben felelnek meg. A széleskörű 
tesztelés pedig időigényes, pénzigénycs. Szerencsés vé¬ 
letlen, ha a szerző saját tapa.sztalai alapján, saját munkája 
megkönnyítésére ké.szíthct programot, olyat, ami általá¬ 
nosan használható... 

A kezelési utasítások részletesen foglalkoznak a progra¬ 
mok lehetőségeivel... stb. 

Ehhez még hozzáfűzném azt, hogy az igényeket pedig csak 
a számítógépes lehetőségek ismeretében lebet maradéktalanul 
megfogalmazni! A programíró azt ajánlja, amire gyorsan, a sab¬ 
lonjai alapján képes a ré.szleges .szakmai ismeretekkel. Ezért van 
az, hogy sok program ragyog, fütyül, de az alapvető szolgáltatá¬ 
sok némelyike hiányzik. 

Ezért megszívlelendő tanács lehet, hogy bármilyen számí¬ 
tógépünk van, a lehető legtöbbet tudjunk meg róla. Csak a meg¬ 
ismert lehetőségeket tudjuk kihasználni! Ez talán túl nagy köve¬ 
telmény, ha arra gondolok, hogy a gépírók zöme még az írógép 
tabulátorának használatát sem használja, mert nem ismeri. 

A kezelési utasítás ürügyén is sok hasznos dologról lehetne 
írni, hi.szen az tartalmazzÁí a program lehetőségeit, munkafogá- 
.sait. Ha egy értékes programot nem tudunk használni utasítás 
hiányában, az csak szemétnek tekinthető lemezünkön! Például 
említhetem a COLOSSUS2 .sakkprogramot. Több ismerősöm¬ 
nél láttam e programot, de kezelési utasítása, leírása senkinek 
nem volt (létezé.séről nem is tudok). Akinek megvan, ne törölje 
le, utasításait hamarosan elküldöm a Szerkesztőségnek (ha arra 
igényt tart), hiszen azzal is eredményesen kísérleteztem! 

Aki a REL vagy SEQ kérdés eldönté.sét várta az írásomtól, 
talán csalódott, mert nem adtam választ egyértelműen. A kérdés 
nem eldönthető! Ezért, ha egyértelműen ítéltem volna ide vagy 
oda, mindenképpen félrevezetném még saját magamat is! Ha vá¬ 
lasztani kell, minden előnyt és hátrányt mérlegre kell tenni, első¬ 
sorban saját képességeinket! 

Mesterházi Sándor 
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PROGRAM 



DIN-karakterek 


A SEIKOSHA SP-180VC nyomlató NLQ minőségben csak 
a beépített karaktereket tudja kinyomtatni. Sajnos nincs ékezetes 
karakter a C= készletben. Ha a DIN karaktcrké.szlctct használ¬ 
juk, akkor már van néhány ékezetes karakter, amit NLQ-ban is 
kiír. Ekkor azonban a képernyőn nem azt a karaktert látjuk, mint 
amit a papíron. Ha a PLUS/4 karakterkészletét átváltoztatjuk 
DIN karakterekre ez a probléma megszűnik. 

A ,,DIN-karakterek” című program betölti a karakterkész¬ 
letet a $F000—$F800 RAM területre, a memória teteje mutató¬ 
kat átírja ennek megtélelően, RESET-et hajt végre, egy rövid kis 
IRQ rutint másol $0609-től, majd a .szabad memóriát feltölti 
0 bytokkal. 

Az IRQ rutin a $053d címet figyeli. Ha ott $80 értéket ta¬ 
lál, a karaktergenerátort átkapcsolja a RAM $F000 címére, ha 
$ÜO-t, a karaktergcncrátor a ROM $D000 címén lesz. 

A program 10 blokk hosszúságú lenne, de tömörítve van, 
így csak 6 blokk. 

A program beírása: 

Az 5-rc végződő sorokat nem kell beírni, azok csak a meg¬ 
előző sorok beírásában segítenek. A lista .szerinti BASIC progra¬ 
mot beírás után célszerű kimenteni. Hajói lett beírva a futtatás 
után előáll maga a DIN-karakter program. Ezt ki kell menteni, 
és lehet használni. 


Percze István 


O 


o 


10 rém ** 
20 rém"* 
30 rém'* 
40 rém”* 
50 rem“* 


o 

60 rém ** 


1000 

data 

o 

1010 

data 

1020 

data 

o 

1030 

data 

1040 

data 


1050 

data 

o 

1060 

data 


1070 

data 

o 

1080 

data 

1090 

data 

o 

1100 

data 

1110 

data 


1120 

data 

0 

1130 

data 


1140 

data 

o 

1150 

data 

1160 

data 


1170 

data 

o 

1180 

data 


1190 

data 

o 

1200 

data 

1210 

data 

o 

1220 

data 

1230 

data 


1240 

data 

o 

1250 

data 


1260 

data 

o 

1270 

data 


DIN-karakterek prg * 

Percze István * 

PLUS/4 * 

SP-180VC DIN-modban * 
tuttttim-tttinniittt %**%***%*■** 
0b, 10, c7, 07,9e, 34,31,30, 540 
39,00,00,00,78,a2,ff, 9a, 748 
8e,f9,07,8d,3f,ff,a0,a6, 1183 
b9, 2a, 10, 99, fa, 00, b9, d0, 1039 
10,99,33,03,88, d0, fi, 4c,884 
00, 01,00, 2f, 14,00,19,b9.278 
2f,14,99,01,10,b9,70,14,554 
99,42,10,c8,d0,f1,84,f6,1262 
a9, 02, 85, fa, 20, 70, 03, 20, 733 
84,03,d0,08,a9,01,85,fb,905 
a9,00,f0,ee,85,f5,29,3f, 1129 
85,f8,85,f7,a9,00,85,f9, 1312 
a5, f5,30, 2f, 06, f5. 30, 21,837 
a9,00,85,f7,a9,02,85,fa, 1103 
18, a5, f8, 65, fe, 85, f8, a5, 1338 
f9, 65, ff, 85, f9, 20, 34, 03, 1074 
a5,f7,85,fa,f0,cl,4c,15,1325 
01.20,34,03,85,f8,a9,03, 721 
4c,3f,01,06,f5,30,29,a9,649 
04,85,fa,a5,f7,c9,3f,d0, 1271 
05,20,84,03,85,f7,20,84,716 
03, 85, f8, 38, a5, f8, e5, f6, 1328 
f0. 02, b0,07, a5, f8, 85, f9, 1220 
20,84,03,85,f8,4c.41,01,690 
a5,f7,c9,05,b0, 05, 85, fb, 1183 
20,84,03,85,fa.4c,72, 01.741 
38,a5,fe,e5,fa,85.fe.b0,1517 
03. 20, 65, 03, 38, a5, f8, e5. 837 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


O 1280 data fa, 85, f8, b0, 02,c6.f9,a4,1420 
1290 data fa,98,05,fb.d0,01,60,98,1115 
Q 1300 data d0, 07,c6, fb,c6,f9.20,65.1244 
1310 data 03,88, bl,f8,91,fe,4c.4d,1116 
1320 data 03,a5,f6,c9,ff,b0,02,e6,1278 
O 1330 data f6, c6, ff. 60, a5,fc,85,f8,1593 
1340 data a5. fd, 85, f9, 20,34.03,a5,1052 
O 1350 data f8,85,fc,a5,f9,85,fd,60.1529 
1360 data a5, fc. d0, 02, c6, fd. c6, fc, 1528 

Q 1370 data bl, fc, 48, a5,fc,c9,01,a5,1285 

1380 data fd, e9, 10, 68. 90. 01.60, 68, 951 

1390 data 68, 8d, 3e, f f, d8, 58, 4c, 20, 974 

O 1400 data 10. f0. e0, c0, 80, 08, 48, 07. 887 

1410 data 0f, le,a6, 03, c5,22,00,c8.643 
O 1420 data e0, f0, 38, 46, 83, 07, 00, c5, 925 
1430 data c0,le,01, c8,01.40,f0,07.733 
1440 data 01, c8, 0a, 46.00,c9,5b,80,701 
^ 1450 data 00,cc,cc,33,33,08,le.3e.608 

1460 data 7f,3e,le,08,36,8c,13,01,439 
O 1470 data 18,0a,81. c0.c0,30.30,07.650 
1480 data 04, c5, 03, 16, 81,00, 04, 00, 359 
Q 1490 data cc,22,00.c5.00,04,00,fd,692 
1500 data c0,3e,60,3c,66,9c,84.0f,815 
1510 data 88. 03, 00, c6, 34, 00, c6. b9. 772 
1520 data 40,10,40,3d,30,40,06,18,347 
1530 data 41,17,74,80,66,7e.60,3e,718 
O 1540 data 00,le.36.30,78,a5,49.01.489 
1550 data 54,00,c6,46,40,34.00.c6.666 
1560 data 18,la,01,c5,18.3f,01,40,400 
^ 1570 data 06. 66, 3c, 60,60,66.6c,78,690 

1580 data 7c, 66,00. 2a, 01,8b, e8, 01,641 
Ü 1590 data 80,07.6b,7f.7f,63,63,14,714 
1600 data 05, c6,06,24,80,34.00,c7,624 
Q 1610 data 10,66,ff.01,81,00,3e,44,633 
1620 data 82, 06, 00, 00, 7c. 86, 01.84, 527 
1630 data 01,3e, 8b, 80, 00,30,30,fc,678 
1640 data 30,30,36,le,0c,08,c6.07,403 
1650 data 14, 80. 17, 0e, 01,00,63,6b,392 
O 1660 data 7f.36.22,0c,86,ff,01,80,745 
1670 data 01,4a, 80, 3e,06,7c,99.43,615 
Q 1680 data 57,40,b8.40,05,80,30.10,596 
1690 data 41,60.62,41,06,03,00.3c,393 
1700 data 05.84.0c,e0,41,18,3c,68.626 
O 1710 data 42, 6a, 00, c9,00,02,00.cd,580 
1720 data c7, 80, 01,46, 80, 25, 05, 02, 570 
O 1730 data ff, f0, 41, 18, 3e, 60.3c,06,808 
1740 data 7c,18,00. 62.90.49,30,66,613 
Q 1750 data 46,50,43,3c,38,67,66,3f.601 
1760 data 40, 02, 05. c9.0c.40,30,bf,587 
1770 data 81,b8,40,0c,2f,41,07,34.560 
O 1780 data ff, 3c,66.7c,83,33,le,80,879 
1790 data 13,00,c7.30,04,41,84,80.595 
1800 data 93,01,00,c8,00,00.03,79,472 
^ 1810 data 43,17,10,40,6e,76,33,82,579 
1820 data 03, 28, 02, 80, 0b, 00, c5, 0c, 393 
O 1830 data 40,01,81.18,06,le,13,82,401 
1840 data 06, 0e.le, 66,7f.06,06,80.419 
Q 1850 data 47. 7c.06. 23.82,10,60,5d,571 
1860 data 41,10,7e.66,0c,91,83,0b,608 
1870 data 80.05,40,08,30,66,3e,d3.628 
1880 data 82,0b.00,c6.30,80,22,21,582 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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PROGRAM 


o 

1890 

data 

1900 

data 


1910 

data 

o 

1920 

data 


1930 

data 

o 

1940 

data 

1950 

data 

o 

1960 

data 

1970 

data 


1980 

data 

o 

1990 

data 


2000 

data 

o 

2010 

data 

2020 

data 


2030 

data 

o 

2040 

data 


2050 

data 

o 

2060 

data 

2070 

data 

o 

2080 

data 

2090 

data 


2100 

data 

0 

2110 

data 


2120 

data 

0 

2130 

data 

2140 

data 


2150 

data 

o 

2160 

data 


2170 

data 

0 

2180 

data 

2190 

data 

0 

2200 

data 

2210 

data 


03.0e,f2,41, le, 0e, 06, 41,437 
02,7e,16,41,70, 18,0c,07,370 
43,70,20,41, d7,40, 0a, 00, 565 
30. 18,0c, 03, 84,00, bd, 81,537 
d2,80,05,80,0e,7c, 22. 81,772 
0e, 20, 40, 3c, 40. 19, 34, 0a, 321 
00,c7,38,7e,60,60, 78, 2c, 737 
44,62,80,39, 40, 10,01,9b, 587 
80,18,85,80,68,01,80, le, 676 
01,41,0c, 6c, 38, 00,66, 6c, 452 
78,70,3a,88, 03, 00, c5, 70, 738 
40, 63,77, 7f,6b,4c,44, 38, 716 
76, 7e, 7e, 6e, 50, 44, 12, 00, 646 
c5,0f.12,80,0f,60,60, 10,581 
42, 23, 80, 0e, 00, 7c, 66, 66, 571 
7c. 78. 6c. 4c, 88, 60. 3c, 06, 726 
10,43,7e,69,01,c6. 0a, 00, 523 
c6. 3a, 80, 01,40, 0d, 40, 00, 526 
63,63,63.6b.7f.77. 63, 08, 757 
48,09,16.18,40,14,3c,63,370 
81.7e, a7, 41.30. 60, 7e, 00, 757 
66,8a,85.06,00, 01,00. eb, 583 
01,40,d0,40.07, 03, 3e. 76. 527 
36,36,0b.05,c8,le, 80. 02, 484 
80.11,80.02,00,c7,18,40,562 
09,00,c6,19,00,ca, 11,00,451 
c6,19,00,ca,01,00.05.41,496 
19,00.c5, 01.00. If, lf,09.294 
03,c6.Il,00,c5,01,00, f8,664 
f8. 02. 03, c5, 18. ff, ff. 56, 1070 
43,19.11,00.c6,0c, 12,30,385 
7c. 30. 62, fc. 21,87, 39. 00. 747 
c5.06.0c.18, 02, 83, 62. 40, 534 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

Ü 


COMMODORE BASIC V3.5 57343 BYTES FREE 
P0KE1341,128=BE 0=KI - HELLO !!! - 

READY. 


BILLENTYŰZET KIOSZTÁS; 


SH 

C= 


1234567890+-= 

! '#$%&'( ) 

)0-_JT 

ASDFGHJKL:; 
'%i . I N_C h 
OééA 1-aé I í C ] 


QWERTYUIOP§\* 

"n-J I I— 

+u^^"n5ü ‘"T r_ 

ZXCVBNM,./ 

■ 

£. ÜÖ6 1 d 4 


Commodore basic v3.5 57343 bytes free 
pokel341.128=be 0=ki - hello !!! - 

ready. 

na 


billentyűzet kiosztás 


sh 

1234567890+-= 

! ' '()TaÜ 

qwertyuiopSV * 
QWERTYUIOPZ-r' 

c= 

le-ölT 

-fő n Ü-55Ú ‘-■T ' r_ 


asdfghjkl:: 
ASDFGHJKLC1 

zxcvbnm,./ 

sh 

ZXCVBNM i:>? 


©ééá Iáé 11 [ 1 

£ÜÖ6 ndO? 


o 


o 


o 


o 


o 


o 


c 


o 


o 


o 


o 


o 


o 


Ü 


o 


o 


o 


o 


o 


o 


o 


o 


2220 data 6e,6e,60.62,3c,70,45.6c.763 
2230 data 6c,6e,7c.c0.08.45,11,00,628 
2240 data c6, 39.29, 80,09,00,c5,39,687 
2250 data 00,c5,11,80.7e,60.09,82,703 
2260 data 38,18,18,18,09,84,29,00,310 
2270 data c6,18,24,29.82.20,0e,0c,487 
2280 data 0c, 0c, 6c, 3c, 18, 00, 7e, 30, 390 
2290 data 18, 0c. 18, 30. 7e,00,36.00.288 
2300 data 3c,06,3e,10,55,08,0e,07,258 
2310 data 3c, 00, 66, 00. 00, 66, 66, 66, 468 
2320 data 3e,00,3c, 66,7c,66,66.76,670 
2330 data 6c.02,11,c7.00,ff,le,10.627 
2340 data c8.07,9e,34,86,46,3a.8f,822 
2350 data 0e,42,96,00.eb,01,2a,00,476 
2360 data 00, 00, a9, 11,85, 04. a9, f0. 732 
2370 data 85, 06,eb,8c.85.05.a2,00.782 
2380 data 78,8d,3f,ff,a0,00,bl.03,919 
2390 data 91.05,c8,d0.f9,e6,04,e6.1271 
2400 data 06,a9,f8,c5,06,d0.ed,8d,1212 
2410 data 3e, ff, 58. 20, 7b.8a,a9,f0,1107 
2420 data 8d.34,05,20,84.ff,a2.00,779 
2430 data bd, b4, 10. 9d,09.06,e8.e0,1013 
2440 data 4a, d0,f5, 20, 17,88,20,2e,796 
2450 data 80, 20, c2, 80, a2.fb,9a,78,1169 
2460 data a9, 09,8d. 12, 03,a9,06.8d.656 
2470 data 13,03,58,a9.80.8d,3d,05,614 
2480 data 20,4f,ff,20,50,4f,4b,45,701 
2490 data 31,33,34, 31,2c.31,32.38.400 
2500 data 3d,42,45,20,30.3d,4b,49,485 
2510 data 17,6c,bf.20.48.45,4c.4c,647 
2520 data 4f,20,21,21,21,20,2d,2d,332 
2530 data 2d, 0d.00, a9,00.8d,fa,07,625 
2540 data 4c, 3b, 06, 2c,3d,05,10,16,289 
2550 data If,Id,c5,21,00.c9,f0,18,755 
2560 data 41,18,17.41,ad,12,ff,29,664 
2570 data fb.09,04,8d,12,ff,ad,13,870 
2580 data ff,29,07,09.d0.8d,13.ff,935 
2590 data 4c, 42, ce, a2,10,86,04,a9.833 
2600 data 00,85,03,a8,a2,e0,91.03,838 
2610 data c8, d0, fb, e6, 04, ca, d0, f6, 1549 
2620 data 4c,7e,86,ea,00,00,04,31.623 
2630 data c8, 00, 06, 00, d0, c0,00,04,610 
2640 data 00,30,cl,ff.7f,3f,1f,0f,732 
2650 data 07,03,01,af,08,c7,01,40,458 
2660 data eb,00,c9,00,07,01,c7,0f,658 
2670 data 54,81,08.le,0f,07.08,43.346 
2680 data 18. 18, 38. f0, e0,51,85,07,789 
2690 data 00, c6, 07.07,01. c7,e0,07,643 
2700 data 01, c7, 08. e0, 70, 38, le, 0e. 642 
2710 data 07,03,48, 07,c8,03,07.0e.313 
2720 data le.38.70,e0,38,47,7c,00,671 
2730 data ca, la, 80, ff, fe, fc,f8.00,1365 
2740 data 00,00,00,00,00,00,00,00,0 
3000 scnclr:c=dec('1001")-8 
3010 v=dec(’1570"):ff=256 
3020 do;h=peek(64):J=peek(63);s=ff*h+] 
3030 prinfrg'.s, " 2730" ;cs=0:c=c+8 
3035 rém Chome] 

3040 fori=0to7;reada$:a=dec(a$) 

3050 poke(c+i),a:cs=cs+a:next;readx 

3060 ifx<>csthenprint"hiba a“s"sorban !" 

3070 i fxOcsthenstop 

3080 ifc>vthenexit 

3090 loop:print",ííMiiMBvimenteni Ml" 

3095 rém 2x[le] 4x[jobb] 

3100 poke45,112:poke46, 21:c]r:end 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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Vírus Checker 


Mostanában annyira népszerű lett a 
számítógépes vírusokról való cikkezés, 
hogy szinte már közhelynek számít min¬ 
den leírt szó. Ennek ellenére vállalkozunk 
egy olyan globális ellenőrzőrendszcr be¬ 
mutatására, amely igen magasan kiemel¬ 
kedik társai közül. 

A program neve: Vírus Checker, 
másképpen: VC. 

Ez tulajdonképpen egy Public Do- 
main program, amelyet a Commodore és 
még néhány más cég szabadon tcrje.szt- 
het, így bárki egyszerűen hozzájuthat. 

A program a GAIB (Global Anti- 
Virus Information Bank) terméke, és ez 
az amiért érdemes foglalkoznunk vele. 
Akinek nem mond semmit a fenti megne¬ 
vezés, azoknak elmondjuk, hogy ez a dán 
nemzetiségű Erik Lővcndahl S(5rensen ál¬ 
tal alapított és Németországban működő 
vírus információs rendszer a legnagyobb 
és az egyetlen Európában, amelyről el¬ 
mondhatjuk, hogy valamennyire hatéko¬ 
nyan és naprakészen üzemel. 

A GAIB csoport több mint 120 antiví- 
rus programozót tömörít magába, köztük 
olyan ismert nevek is megtalálhatók, mint 
Steve Tibbet és Jonathan Potter. A rend¬ 
szer feladatának tekinti a gyors belső in¬ 
formációterjesztést, antivírus programok 
fejlesztését és a különböző újságokban 
valócikkezést. Összefoglalva, ezeknek az 
erőfeszítéseknek az eredményeként szüle¬ 
tett meg a VC, vagyis a Vírus Checker. 

Előnyei közül a legelső az, hogy a 
GAIB naprakészen tartja a programot, te¬ 
hát ha valami új kártevő jelenik meg a .szí¬ 
nen, akkor igyekszik a leggyorsabban 
hozzáigazítani a softwarc-t. Ennek kö¬ 
szönhetően a mai napig pontosan 69 ver¬ 
zió létezik (mi most a legújabb 5.37-es vál¬ 
tozatáról szólunk). 


A VC használata 

Mielőtt még rátérnék a program be¬ 
mutatására egy kis figyelmeztetést kell in¬ 
téznünk azokhoz a felhasználókhoz, akik 
előszeretettel használnak packereket és 
crunchereket. Ha egy link/file vírus meg¬ 
fertőz egy programot, akkor azt a VC 
nagy valószínűséggel kimutatja, de ha 
ugyan ez a file cruncholve van, akkor már 
biztos, hogy nem kapunk figyelmeztetést 
és a beteg program minden indítá.sakor 
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fertőzi a gépet. Ezért, ha rendellenességet 
észlelelünk a memóriában és a VC nem ta¬ 
lálja meg a vírust a disk-en, akkor kezdjük 
szépen,,kicsomagolva” végigböngészni a 
gyanúsított lemezen lévő programokat. 


A VC szintakszisa: 

Vírus Checker —1### —t### 

—w### —b —q —n dirnév 
ahol a ### tetszőleges 10-es .számrend¬ 
szerbeli szám. A begépelt adatokban nem 
szerepelhetnek szóközök! 

—1### A VC a képernyő bal szélétől 

milyen messzire nyissa ki az 
ablakát. 

—t### Az ablaknak a képernyő felső 

szélétől való távolsága. 

—w### Az ablak szélessége (max. 386, 
min. 200 pixel). Vigyázzunk, 
mert minden olyan érték, 
amely a képernyőnél nagyobb 
és a megengedettnél kisebb 
vagy nagyobb zavart okozhat a 
VC működé.sébcn! 

—b A VC ablaka minden nyitott ab¬ 

lak mögé kerül. 

—q A VC az összes memóriát, dis- 

ket ellenőrzi, azután kilép a 
rendszerből. 

—n A VC nem nyit ablakot, de el¬ 

lenőrzi a memóriát és a dis- 
kettet. 

—dirnév A link/file vírusok ellenőrzé¬ 
sénél az útvonalat adhatjuk 
meg a keresőnek. 

Bármelyik funkcióval is indítjuk el a 
VC-t, az először mindig a memória át¬ 
vizsgálásával fogja kezdeni, majd a ,,töl¬ 
tött” drive-okon folytatja, visszafelé ha¬ 
ladva (DE3-DF0). 

A VC a 5.23 verziótól egy beépített 
ARexx porttal is rendelkezik, így ARexx 
scipteken keresztül is tudunk vele kom¬ 
munikálni. A port neve: Vírus Checker. 
Ez a név azért fontos, mert ha nincs helye¬ 
sen beírva, a gép nem fogja megtalálni. 

Az ARexx porton a következő utasítá¬ 
sokat használhatjuk: 
cheekdrive/drive név— vírus ellenőrzés 
scanforsaddam/drive 

név — Saddam vírus 

ellenőrzés 

quit — kilépés az ellen¬ 

őrből 
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Egy példa: 
address ’Virus Che¬ 
cker’ — a port megnyitá¬ 

sa 

’checkdrivc/dfü:’ — vírusellenőrzés 

df0:-on 

-scanforsaddam/dfö:’ — Saddam vírusel¬ 
lenőrzés D10:-on 
’quit’ — kilépés 

Az ARexx porton kívül, jóval egy.sze- 
rűbben, gombok segítségével is utasíthat¬ 
juk a programot; 

jobb Ás — link/file vírus ellenőrzés 
jobb A m — memória ellenőrzés 
jobb A f — Saddam vírus vizsgálat 
jobb A q — kilépés 
0—3 — ellenőrzi a startup-sequence 

első file-át és a boot-blockot a 
DÍD-3 meghajtóban. 

Arra figyelni kell, hogy ezek a kul¬ 
csok csak akkor élnek, ha a VC ablaka az 
aktív! 

Ha a program egy memória rezidens 
vírusra talál, akkor azt kijelzi és automati¬ 
kusan hatástalanítja, vagy a vírus eltávolí¬ 
tásával, vagy működésképtelenné tételé¬ 
vel. Egyes esetekben előfordulhat, hogy 
ilyenkor gépünk elgurul, de csak igen rit¬ 
ka alkalmakkor. Máskor az is megeshet, 
hogy törléskor elvesznek a recovcrable 
ram disk (RÁD: VDO:) adatai, ezért ér¬ 
demes a fontos file-okat még lemezre 
menteni az újrabootolás előtt. Ez utóbbi 
két esetre a program készítői azt mondják, 
hogy legtöbbször jobb megoldás, mint 
működni hagyni egy vírust. (Hát? Lehet 
vitatkozni.) 

Miután a program hatástalanított egy 
memória víru.st, szépen álljunk neki vé¬ 
gigböngészni minden szempontból az 
összes lemezt, amely a fertőzés ideje alatt 
bent lehetett valamely meghajtóban. 


Link/filc vírus ellenőrzés 

Ha ellenőrizni kívánunk egy disk-et, 
a link/file vírusok .szempontjából, akkor 
ezt legegyszerűbben a Projcct menü Link- 
File scan (jobb Amiga-l-s) opciójával te¬ 
hetjük. Ez megjelenít egy ablakot, ahol 
beállíthatjuk, hogy hol is kívánunk keres¬ 
gélni (Dlb:, RÁD:: DhO:...). Miután el¬ 
végeztük a beállítást, a program ellenőriz¬ 
ni fogja az összes file-t a lemezen. 

Az egész lemezen kívül egyes könyv¬ 
tárakat is ellenőrizhetünk külön-külön, 
ha a drive megadása után egy directory 
nevet is megadunk: Dfl):System. Ha egy 
könyvtárról tudjuk, hogy tiszta és fölösle¬ 
gesnek tartjuk újból ellenőrizni, akkor a 
CtrU-d kulccsal kiléphetünk az éppen el¬ 
lenőrzött directory-ból. Az ellenőrzés tel¬ 
jes leállítását a CtrU-c-vel érhetjük el. 





& 

Brain Fiié 
kiegészítés 

Az ellenőr a 5.13-as verziótól egy 
brainfile kiegészítéssel is rendelkezik. 
Amikor a program egy No standard boot- 
kódot talál és ezért megjeleníti az üzenet- 
ablakot, egy új funkció közül is választha¬ 
tunk: ez a Learn. Ha ezt választjuk, akkor 
a ve megtanulja a jelzést kiváltó kódot és 
ezentúl ilyennel találkozva nem fog riadó¬ 
jával zavarni. 

A brainfile-t az S könyvtárban VC- 
Brainfilc néven találhatjuk meg. A prog¬ 
ramot ,,gyárilag” megtanították néhány 
nem normál boot felismerésére is, mint 
pl.: AutoADDRam (ZeróVirus), OFS 
(OS 2.0), Install-f-... 

Ha a ve megjelenít egy üzenetet, mi¬ 
szerint egy az általánostól eltérő boot- 
kt'xiot észlelt, az nem azt jelenti, hogy egy 
új vírussal állunk szemben, mert sok — 
elsősorban játék — lemez boot-ja tartal¬ 
maz speciális töltő, illetve másolásvédcl- 
mi rutin. Ennek ellenére óvatosnak kell 
lenni (főleg, ha ez nem egy játék lemez). 
Ne töröljük a boot-ot, amíg nem vagyunk 
teljesen biztosak a dologban, mert egy 
gombnyomással nemcsak fertőzésmen- 
tcssé, hanem tönkre is tehetjük a lemezen 
tárolt információkat. 

Aki még nem igazán gyakorlott a 
vírusfelderítésben, annak bemutatunk 
egy igen egyszerű módszert, amellyel ki 
lehet mutatni a legtöbb ismert és idegen 
vírust: 

• Formatáljunk üresre egy lemezt. 

• Vegyük ki az összes lemezt a meghaj¬ 
tókból és boot-oljunk a gyanús disk- 
ről. 

• Most vegyük ki, helyezzük a DfO:-ba az 
írás-engedélyezett, formatált lemezt és 
boot-oljunk. 

• Vegyük ki és kapcsoljuk ki a gépet 
1 percre. 

• Kapcsoljuk be, indítsuk el a VC-t és rak¬ 
juk be a formatált lemezt. Ha a VC talál 
egy no-standard kódot a lemezen, akkor 
biztos hogy egy új vírussal állunk szem¬ 
ben. 

Ez utóbbi esetben a GAIB kér minden 
felhasználót, hogy küldje el a fertőzött 
lemezt elemzés céljából az alábbi cím¬ 
re: 

Erik Luővendahl Sőrcnsen 
Snaphanevej 10. 

4720 Prfstő 
Danmark 


A Vírus Checker 
által ismert vírusok 

A VC míg egyes vírusokat (SCA, 
Byte Bandit...) képes észlelni, elpusztíta¬ 
ni mind a lemezen, mind a memóriában, 
addig egyeseket csak észlelni tud (első- 
.sorban régebbi verziók), míg másokat 
(pl.: Xeno) csak a memóriából képes el¬ 
tűntetni, a lemezről már nem. 

A zárójelben szereplő számok a VC 
arra a verziójára utalnak, amely először 
tett valamilyen lépést az aktuális vírussal 
szemben. Azok a kártevők, melyeknél 
nincsen leírás, a szerényebb képességek¬ 
kel rendelkezők csoportjába tartoznak és 
már bemutattunk egy hozzájuk ha.sonló 
elven működő társát. 

És most lássuk a kártevőket: 

• SCA vírus (vl.O) 

Ez a legegy-szerűbb és ezárt a legprimi¬ 
tívebb vírus, amivel szembekerülhe¬ 
tünk. Nem csinál egyebet, mint elrejtő¬ 
zik a memóriában és ha írásengedélye¬ 
zett lemezt talál, akkor .szaporodik. 
Működésének kulcsa, hogy átírja a Co- 
olCapture vektort, ezért itt lehet a leg¬ 
jobban megfogni (ha visszaállítjuk a 
CoolCapturc-t eredetire). 

• AEK vírus (vl.2) 

• LSD vírus (vl.2) 

• ByteBandit vírus (vl.3) 

Ez már egy kicsit fejlettebb kártevő. 
Trükkje, a DoIO vektor átírá.sában rej¬ 
lik (magán keresztül irányítja), ezért 
minden input/output (pl.: install) műve¬ 
let a vírus beiktatá.sával fog lezajlani és 
így ő igen hatékonyan szaporodik. En¬ 
nek a programnak már van egy megsza¬ 
kítója, ami bajt okoz a gépben minden 
.5. percben, vagy miután megfertőzött 
néhány lemezt. Mikor úgy tűnik, hogy 
gépünk elszállt, akkor sorban lenyomva 
az alábbi gombokat: 

bal Alt, bal Amiga, Space, jobb 
Amiga, jobb Alt 
újabb 5 percig dolgozhatunk. 

• Revenge vírus (vl.41) 

Alapjában véve egy Byte Bandit klón, 
amely minden boot-oláskor megjelenít 
egy obszcén mutatót. 

• ByteWarrior vírus (vl.4) 

Ez az egyik vírus a sok közül, amely di- 
rekt ugrásokat tartalmaz a vl.2 Kick- 
startba, ezért nem működik a vl.3 és 
v2.0 rendszereken. 

• NorthStar/Starfirc vírus (v3.0) 

• Obelisk Softworks Crew vírus (v3.0) 

• IRQ vírus (v2.0) 

Ez az első nem boot-block vírus. A me¬ 
móriába kerülve, az írásengedélyezett 
lemez startup file-jának első futtatható 
programjára akaszkodik rá, mégpedig a 
legelső hunk-ra. 
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• Pentagon Circlc vírus (v3.0) 

• HCS vírus (v3.0) 

Ez egy igen trükkös jószág. Tulajdon¬ 
képpen a System Z vírusprotectorra rá¬ 
akaszkodva találhatjuk meg (egy szapo- 
rrxió vírusellenőr vírus). Mivel egy 
protcctor, ezért kijelzi az idegen b(K)t- 
kódot, de el is tűnteti, mégpedig úgy, 
hogy ráírja saját magát a lemezre. Mi¬ 
vel bármi, ami szaporodik, terjeszti 
magát (bármely néven) vírus, ezért fon¬ 
tos figyelnünk rá. 

• Disk-Doctors vírus (v3.0) 

Ez a már durvább vírus szintén a DoIO 
vektorra fűzi fél magát. Ha talál egy 
olyan DoIO-t a memóriában, amely a 
boot olvasására szolgál, akkor ha sike¬ 
rül neki, átír oda egy darabot a saját 
kódjából. Összefoldozza magát a Verti- 
cal Blank megszakítással és formatálja 
a bent levő lemezt bizonyos .számú 
(20 00) megszakítás után. Hogy teljes 
legyen a kép, elindít egy taskot clip- 
board.device néven, amely azzal tölti az 
idejét, hogy má.solgatja magát a memó¬ 
riájában egyre kisebb blokkokra S7.ab- 
dalva azt. Azért nem kell nagyon meg¬ 
ijedni, mivel ez is tartalmaz néhány di- 
rekt ugrást az 1.2-es ROM-ba, nem mű¬ 
ködik fejlettebb típu.sokon. 

• Lamer Exterminator vírus (v3.01) 

Ha valamely vírusokra rá lehet monda¬ 
ni, hogy ha.sonlítanak élő rokonaikhoz, 
akkor ez az egyik, ugyanis egész prog¬ 
ramját véletlenszerűen kódolva tárolja, 
amit a képernyő Beám pozíciójának 
alapján .számol. Hozzákapc.solódik a 
trackdisk.device-hoz, hogy ott lehessen 
minden olvasásnál és írá.snál, ezenkívül 
ráragad az cxcc SumKick vektorára, 
arra az esetre, ha valaki megpróbálna 
tőle meg.szabadulni. Amikor észlel egy 
input/output műveletet, akkor véletlen- 
.szerűen keres egy szektort a lemezen és 
ha az data blokk, akkor végigírja LA¬ 
MER! felirattal. Nchányan azt mond¬ 
ják, hogy ez a vírus képes írni olvasás¬ 
letiltott lemezekre is. Én ezzel még nem 
találkoztam, de nem is tudok (ami nem 
jelent sokat) olyan speciális kódról, ami 
ezt képes lenne megtenni. Ennek a ví¬ 
rusnak a készítői gondoskodtak a folya¬ 
matos fejlesztésről, ezért ezidáig 4—5 
féle változatban találkozhatunk vele. 

• Time Bombs vírus (v4.10) 

Ez egy igen különösen működő vírus, 
nem változtatja meg egyetlen mutató 
tartalmát sem, mégis vi.sszajut a diskre. 
Mikor másodszor másolódik fel egy 
lemezre, akkor kitöri i annak root di- 
rectory-ját és kivált egy alert-et. Ha 
a beépített .számlálója kettőnél többet 
mutat, akkor csak az alert fog meg¬ 
jelenni. 
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• Gadafti vírus (v4.22) 

Induláskor rátelepedik a CoolCapture 
és a DoIO vektorra, használja a Rom- 
Tag struktúrát. Mivel direkt módon ug¬ 
rik a vl.2-es Kickstartba, ezért csak 
azon működik. A 13. másolat után rálép 
a dri vc-ok fejére és jól megrázza azokat. 

• Phantasmumble vírus (v4.24) 

• BSG9 vírus (v4.25) 

Az IRQ vírushoz hasonlít abban, hogy 
nem a boot-on él, de egy kicsit más¬ 
ként működik. Rákapcsolódik a Rom- 
Tag struktúrára és az intuition openwin- 
dow rutinját a kódjához kapcsolja. Ha 
az AmigaDOS télnyitja a CLI ablakát, 
akkor a vírus aktivizálódik és ha tudja, 
akkor fogja az első működőképes file-t 
a s (stailup-ban) és egy devs (" ") 

(szóközök) nevű alkönyvtárban elmenti 
más néven. Ezután magát másolja az el¬ 
mozdított program helyére. Az árulko¬ 
dó jel a vírus hosszba (2608 byte). Ha 
vissza akarjuk állítani a lemezen az ere¬ 
deti állapotot, nincs más dolgunk, mint 
törölni a vírust és visszamásolni a he¬ 
lyére eredeti névvel az elmozdított 
programot. A memóriában hatástala¬ 
nítva, megjelenít egy filozófikus üzene¬ 
tet, melyből talán megtudhatjuk a ví¬ 
rusprogramozók tetteinek indíttatását: 
,,A Computer Virus is a diseasc 
(A számítógép vírus egy kór) 
Terrorism is a Tran.sgression 
(A terrorizmus egy vétség) 

Software Piracy is a erime 
(A software kalózkodás bűn) 

This is the Cure 
(Ez az orvoslás) 

BSG9 plus .somé other junk 
(BSG9 és néhány ócskaság).” 

• War Hawks vírus (v4.27) 

Szintén egy egy.szerű baci, amely min¬ 
den negyedik másolat után felmutat egy 
üzenetet. 

• VKill vagy AIDS vírus (v4.30) 

Ismét egy ,,protector” vírus. Mikor 
boot-olják rámásolódik a használatlan 
stack területre, átírja a CoolCapture-t 
és az exec PutMsg vektorát. Ez utóbbin 
keresztül értesül az ös.szcs I/O művelet¬ 
ről. Kijelzi, ha a meghajtóban egy nem 
standard boot-kód van és kérésünkre 
magát másolja a normál boot helyett a 
lemezre. 

• Ultra Fox vírus (v4.24) 

Szintén egy egyszerű CoolCapture ví¬ 
rus, amely minden 16. fertőzés után 
megjelenít egy kis üzenetet. 

• PVLProtcctor (v4.30) 

Megint egy ,,protector”. Működése 
megegyezik a VKill víruséval. 

• Revenge Lamer Exterminator (v4.40) 
(azelőtt DOSSPEED) 

Ez egy file vírus, amely felgyorsítja az 



operációs rendszer működését kb. 
800%-ára. Beszúrja magát,, ” (szó¬ 

közök) néven a s (startup) ckső sorába és 
így az ő elindításával fogja kezdeni a le¬ 
mez a működé.sét. 

• UnKnown vírus (v4.42) 

Ez a névtelen vírus direkt ugrásai foly¬ 
tán csak az 1.2-es Kickstart alatt műkö¬ 
dik és hasonlóan az SCA-hoz igen sze¬ 
rény képességekkel bír. 

• JITR vírus (v4.42) 

• MicroSystem vírus (v4.43) 

• HCS II vírus (v4.43) 

• Opapa vírus (v4.43) 

• Australian Parasite (v4.43) 

• Xeno vírus (v4.44) 

Ó egy igen nehéz eset, mert egy pillanat 
alatt képes megfertőzni minden futatha¬ 
tó programot a lemezen. Nem szüksé¬ 
ges, hogy fusson a program, elég, ha ki¬ 
adunk egy dir parancsot és ő máris ak¬ 
cióban van. Rákapcsolódik a dos.li- 
barary-ra és átveszi az Open, Lock, 
LoadSeg hívásokat és így tudja elkapni 
a file-okat dir közben. Lemásolja magát 
minden program elejére, de úgy, hogy 
az még működjön, sőt tartogat még ne¬ 
künk egy kódolt üzenetet, melyben me¬ 
leg üdvözleteit fejezi ki (ekkor sem lus¬ 
tálkodik, hanem tovább puíiztít). A me¬ 
móriából még könnyű eltávolítani, mert 
elég a mutatókat helyreállítani, de a fer¬ 
tőzött programokat már csak igen nagy 
erőfeszítésekkel tehetjük tisztába: a 
file-ban meg kell találni és el kell távolí¬ 
tani a vírust, majd vissz.aállítani a data 
pointereket, hogy a program még mű¬ 
ködjön is (hát nehéz eset?!). 

• 16 Bit crew vírus (v.5.06) 

• New Alién Beát vírus (v6.06) 

Szintén egy primitív, csak vl .2 alatt futó 
boot-block vírus. 

• Black Flesh vírus (v5.06) 

Ez újból egy gyenge képességű kártevő, 
amely még el is árulja magát, mivel bi¬ 
zonyos számú fertőzés után megjelenít 
egy feliratot, melyben közli, hogy gé¬ 
pünk súlyos beteg, mert egy vírus ren¬ 
detlenkedik a memóriában. 

• Digital Emotions vírus (v5.ü6) 

• ScarFace vírus (v5.()6) 

Boot-olás után átve.szi a trackdisk.dcvi- 
cc BeginlO rutinjának szerepét, hogy 
észlclhes.sen minden 1/0 műveletet. 
Mikor talál egyet igyekszik megfertőzni 
a lemezt. VertBlank megszakítója segít- 
.ségével rövid idő eltelte után újraboot- 
olja a gépet. 

• Turk vírus (v5.06) 

• Jho.suha vírus (v5.06) 

Működése nagyban ha.sonlít a ScarFace 
víruséhoz, azzal a kis különbséggel, 
hogy újraboot-olás helyett csak egy kis 
ábrát jelenít meg a képernyőn. 
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• Butonic vírus (v5.07) 

Ó egy file vírus. Rátelepedik a DoIO 
vektorra, hogy észrevegye az összes I/O 
műveletet. Hasikerül neki, ráírja magát 
a lemezre és a nevet befűzi az s:startup 
első sorába. A vírust megkereshetjük 
egy egyszerű dir utasítással is, csak arra 
kell figyelnünk, hogy a neve minden 
fertőzéskor változik. A memóriába ke¬ 
rülés után rövid idővel megváltoztatja 
az aktív ablakok feliratát és kivált egy 
GURU üzenetet. A lemezről egy.szerű 
eltávolítanunk, csak ki kell törölnünk a 
nevet a startup-ból. 

• Centurions vírus (v5.08) 

Ez egy file vírus, amely átveszi a track- 
disk.device BeginlO rutinjának szere¬ 
pét, így észlelhet minden olvasást a 
boot-ról. Ha talál egyet, fogja az első 
működőképes fiiét az s:startup-ban és 
rákapcsolja magát annak az első hunk- 
jára. így ő is bekerül a memóriába, 
amint boot-olunk a lemezről. Igen árul¬ 
kodó jel a vírus hossza: 3916 byte, ugya¬ 
nis ennyivel Ic.sz hosszabb a beteg prog¬ 
ram. Minden 10. fertőzéskor megjelenít 
egy mosolygós mutatót, amelyen egy 
felirat fut kcre.sztül. 

• Coders Nigthmare vírus (v5.09) 

• Forpib vírus (v5.09) 

Néhány má.solat után felmutat egy rövid 
üzenetet. 

• GX Team vírus (v5.09) 

Csak vl.2 alatt futó boot vírus, amely 
néhány másolat után megjelenít egy fel¬ 
iratot, majd kivált egy GURU-t. 

• Gremlins vírus (v5.09) 

• Kauki vírus (v5.09) 

O csak vl.2 alatt működik néhány direkt 
ugrása miatt. 

• Target vírus (v5.10) 

• Cli.st vírus (v5.10) 

• Abraham vírus (v5.10) 

• FÁST vírus (vS.lO) 

• ULDV8 vírus (v5.l6) 

• Very Tame vírus (v5.16) 

• ŐRI vírus (v,‘i.l7) 

• Saddam vírus (v5.20) 

Egy file vírus, amely disk-validator-nak 
álcázva jelenik meg a lemezen és igen 
sok fejtörést okozhat. Megjelenése 
folytán nem működik v2.0 Kickstart 
alatt. Induláskor megváltoztatja a root- 
bitmap mutatóját, így az AmigaDOS 
egy unvalidated lemezt fog észlelni a 
meghajtóban és azonnal helyre akarja 
hozni a már lemezen lévő disk-valida- 
tor-ral. így jut tulajdonképpen a lemez¬ 
re a vírus. Ténykcdé.sének második lép- 
c.sője, hogy átírja a lemez datablock 
struktúráját és így az AmigaDOS csak 
akkor tudja olvasni a lemezt, ha a vírus 
a memóriában van. Néhány fertőzés 
után fogja és letörli az egész lemezt és 
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megjelenít egy feliratot, miszerint 
mindezt a Saddam vírusnak tudhatod 
be. 

• CCCP vírus (v5.21) 

Ó egy boot, file kombinációjú vírus, 
melynek köszönhetően igen változatos 
képet mutat. Ráírja magát a boot-ra és 
véletlenszerűen a lemez fde-jaira. Fel¬ 
fedezésének egyetlen módja, hogy ap¬ 
rólékosan végigböngésszük az egész 
lemezt. 

• Disaster Master 2 vírus (v5.23) 

Egy igen egyszerű file típusú vírus, 
amely a C könyvtárban CLS néven csi¬ 
nál magáról egy másolatot és beszúr 
egy sort (CLS*) a startup elejére. 

• Hawnes vírus (v5.24) 

Szintén egy egyszerű file vírus, amely 
egy ablak (CLI) kinyitására vár. Ha 
ez megtörtént, ellenőrzi a lemezt 
és befűzi magát a startup első sorába 
$COAOEOAOCO néven. Néhány má¬ 
solat után megjelenít egy feliratot és tör¬ 
li a lemezt. 


• BlowJob vírus (v5.24) 

• Butonic-Beam vírus (v5.24) 

• Byte Voyager I—II vírus (v5.24) 

• Destructor vírus (v5.24) 

• DiskGuard vírus (v5.24) 

• Fastl vírus (v5.24) 

• FICA vírus (v5.24) 

• Mad II vírus (v5.24) 

• Hilly vírus (v5.24) 

• MegaMaster vírus (v5.24) 

• Paradox vírus (v5.24) 

• Saddam Hussein vírus (v5.24) 

• Termigator vírus (v5.24) 

• SuperBoy vírus (v5.24) 

• Vermin vírus (v5.24) 

• Return Lamer vírus (v5.25) 

Szintén egy disk-validator-nak álcázott 
vírus (tehát v2.0-án nem működik), 
amely azért kevesebb kárt csinál mint 
,,barátja” Saddam, de azért meggyűl¬ 
het vele a bajunk. A lemezről könnyű 
eltávolítanunk, mert elég törölni és egy 
valódival helyettesíteni. 

• BootMenu vírus (v5.25) 


• Travelling Jack vírus (v5.30) 
Boot-oláskor bevezeti magát az Amiga- 
DOS-ba, átvállalva egyes belső felada¬ 
tok intézését. így van lehetősége — amit 
ki is használ — rákapcsolódni minden 
beolvasott program első hunk-jára. 

• EMWurmLogic Bomb vírus (v5.30) 

• Liberator vírus (v5.33) 

Ó egy protectornak álcázott file vírus, 
amely azt mondja, hog}^ törli az összes 
vírust a memóriából. Állításának első 
fele igaz, mert tényleg töröl is, csak 
nem elsősorba a vírusokat, hanem azon 
programok nagy részét (pl.: vírusel- 
lenörök), melyek valamilyen Task-ot 
használnak működésükhöz. (A VC-t az 
5.30-as verzió óta nem tudja hatástala¬ 
nítani.) Ráírja magát a lemezre FastDir 
néven, és kiegészíti a startup-ot egy 
,,memeheck s” sorral. Bizonyos számú 
fertőzés után törli a startup-ot, megjele¬ 
nít egy üzenetet és letiltja a hozzáférést 
a floppy-khoz valamit a dhO-hoz. 

• Hackers Etic vírus (v5.34) 

T. P. E. 


Formatált programsorok 

A következő egysoros ,,program” a C64 szerkesztőprog¬ 
ramját (editorát) olymódon változtatja meg, hogy (a program 
struktúrájának a kiemelésére) a programsorok után szándékosan 
hagyott több üres betűhelyet ne törölje, hanem hagyja meg. így 
tehát a BASIC-szöveg már a bebillentyűzéskor ,,formatálható”, 
fór 1=131 to 128 step —Lpoke I, 234: next 
Ez után a sorszám után akárhány üres hely hagyható, az a 
kilistázás után is megmarad. Magának a programnak az indítása 
(RUN) előtt szükséges egy 
SYS 58303 

végrehajtása, mert különben szintaktikus hibát jelez a szá¬ 
mítógép. 


READY nélkül is megy 

Ha már unja, hogy a C64 minden végrehajtott parancs vagy 
program után azt az ostoba " READY. " feliratát írja a képernyő¬ 
re, adja be direkt módban a következő sorokat: 

FÓR 1=40960 TO 49151: POKE I,PEEK(I): NEXT: 

POKE 1,54 

FÓR 1=41848 TO 41853: POKE 1,32: NEXT 

A " READY. " feliratot ezek után üres szóközökkel fogja fe¬ 
lülírni a rendszer. Lehet a felülírás valami más, legfeljebb hat 
betűből álló szöveg is. 

A$ = "SZÖVEG": FÓR 1=1 TO 6: POKE 41847 -I- 
I,ASC(MID! (A$,I,1)): NEXT 

Ennek a beadása után a " READY. " helyett a " SZÖVEG " 
felirat fog minden esetben megjelenni (aminek a helyébe akár 
„HIHIHI” is írható). 


SYStematikusan C64 


SYS utasításokkal sok érdekes operációs rendszerbeli rutin 
hívható fél. Ilyen pl. a 
SYS 63123 

ami kiírja a képernyőre a legutoljára használt fájl nevét. 


C64 POKE-jai 

íme kettő azokból, amelyek kevéssé ismertek: 

POKE 22,35 

Ennek hatására a LIST végrehajtása során az utasítások sor¬ 
száma nem íródik ki. 

POKE 157,128 

Ez meg elrejti a programot olymódon, mintha a gép direkt 
módban lenne. A képernyőn különféle kiírások jelennek meg, 
mint pl. searching (keresés), loading (töltés) .stb. 


Memóriatörlés — semmi gond 

Különösen asszembler-lánatikusoknak, akár kezdők, akár 
már gyakorlottak, gyakran kell a C64 teljes memóriáját nullával 
feltölteni. Aki már dolgozott gépi kódú monitorral, az biztosan 
ismeri az F parancsot. Adva van még egy módszer, ami valami¬ 
vel gyorsabb is, és a memória $9fff című területét 0-val tölti fel. 
Adjuk be sorszám nélkül: 

DIM A(7777):NEW 

Ez tisztára söpri a teljes BASIC-memóriát. 
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Nyomtató program 

DIRYDIRY 


A mellékelten megküldött program alkalmas a lemezek 
mindkét oldalának kinyomtatására különféle kivitelben; külön¬ 
legessége, hogy a C64 ékezetes betűket használ a képernyőn és 
néhány betűnél a nyomtatón is. E program is felkerült a CITI¬ 
ZEN 120D programozása oktatásával foglalkozó lemezemre, 
mint különlegesség. Sok directory nyomtató programmal talál¬ 
kozhattunk már, szolgáltatásaikkal az enyém legalább egyen¬ 
értékű! 

Mielőtt ezekre kitérnék, egy elméleti értékű újdonsággal 
külön foglalkozok. A program írása során a C-új.ságban megje¬ 
lent Karakterszerke.szlő által készített karaktereket használtam 
(C-újság '92/10. 7. o.). A tesztelés során különleges meglepetés 
ért: hosszabb dircctory-k nyomtatásakor a képernyőből gusztus¬ 
talan mákostészta lett! Ha én így jártam vele ebben a program¬ 
ban, más is így járhat vele bármilyen más programban. Meg kell 
keresni az okát! 

Ez nem is nehéz! Ha a számokat tanulmányozzuk azonnal 
kitűnik, hogy a karakterkészlet új kezdőcíme (28672) a BASIC 
terület (2048—40960) kb. a közepére esik. A karakterkészletre 
itt veszélyek leselkednek két irányból is: 

— 2048 felől a BASIC program hosszának növekedésével 
egyre közelebb kerülnek ehhez az értékhez (28672) a 
string és a szám változók; 

— 40960 felől pedig a tömbváltozók fenyegetnek (ha van¬ 
nak). 

Ha a változóknak kell a hely, az interpreternek nincsenek 
gátlásai, felülírja a gondosan szerkesztett karakterkészletünket, 
hiszen azok a mutatók, amelyek jelzik a karakterké.szlet helyét 
a memóriában nem változnak. Ez volt hát a hiba: mivel a fde- 
ncveket tömbváltozókba olvastattam be, magasabb címek felől 
érkezett a baj! 

Ha hiba van, ki kell javítani, valahova el kellene dugni, de 
vajon hova? A gondot az okozza, hogy 4096 bit kell a karakter¬ 
készlethez (egy egész lap), hogy .szükség esetén mindent átírhas¬ 
sunk! Nem sok a lehetőség, de néhány akad. 

Az én választásom a ROM alatti szabad területre esett 
(57344—), hiszen ezt a területet nem szokás amatőröknek 
használni! 

Ehhez a szükséges módosítások az ABC részben megtalál¬ 
hatók: a másolórutin 2. DATA-sorában 112-t 224-re kell változ¬ 
tatni, a betöltőrutint is módosítani kell a leírtak alapján! 

Ha valaki karakterkészletet készített, és a betöltőt (az itt leír¬ 
tak szerint) azonnal módo.sítja, nem érheti kellemetlen meg¬ 
lepetés! 

Még egy fontos dolog: ha véletlenül RUNSTOP+RESETO- 
RE-t nyomot, sem történt különösebb baj. Igaz, hogy a kép vál¬ 
tott és kimerevedett, de a SAVE"programnev",8 (vakon) begé¬ 
pelésére a program lemezre kerül. 

Visszatérhetünk a gép kikapcsolása nélkül is normál üzem¬ 
módba ilyenkor POKE 648,4-el! 

Alapmódba vissztérhetünk: 

POKE56576,199: POKE648,4: POKE53272,21 (S YS64738 
helyett is) utasításokkal parancs- és programmódban egyaránt. 

Most már mindent tudunk, nem érheti katasztrófa BASIC 
programjainkat! 

A program az előkészítési feladatok (nyomtatóellenőrzés, 
karakterké.szletek elké.szítése, fűzérek előállítá.sa) után jelentke¬ 
zik a beállítási lehetőségekkel. Minden fontos információ a kép¬ 
ernyőn olvasható: 


Fl-el a lemez tartalma ellenőrizhető a képernyőn; 

F2-el RESET-et hajtunk végre; 

F3-al állítható be, hogy mindkét oldalra kerüljön-e fejrész 
(név, dátum); 

— ezzel két egyoldalas lemez directory-ja egyszerre 
nyomtatható; 

N—S—M-cl a megfelelő beállítások lehetővé teszik a feltün¬ 
tetett mennyiségű filcnév kinyomtatását egy lapra. 

Az utóbbi betűk lenyomásával a ,,munkalap’-ra jutunk. 
Ezen láthatók az érvényes beállítások, ha nem megfelelőek, 
| —1-al vissza a beállításokhoz. 

Engem sok programban az zavart (főképpen kezelési utasí¬ 
tás hiányában), hogy nem ismertem a célhoz vezető feladatsort. 
Most igyekeztem ezt kiküszöbölni azzal, hogy a munkalapon 
mindig olvshatók a (c.sak) következő lehetséges munkafázisok; 
az időszerű feladatok pedig a képernyő alján. Mindezt a 
470—570 .sorok végzik, vezérelve a lemezoldalak megfelelő be¬ 
olvasását. 

Ha minden rendben, elkezdődik a nyomtatás. 

660: változó vízszintes tabulátor elhelyezése a 35. karakterhe¬ 
lyen (itt kezdődik a második oldal); 

670: bal margó beállítása 3. karakterhelyre (itt kezdődik az első 
oldal) 

680: ,,Sűrű” beállítás (soremelése); 

690: ,,Mini” félszéles kataktcrck; 

— felsőindex; 

— kicsi soremelés beállítása; 

700—710: a fejrész szövege; 

720: átkapcsolás a 120D új karakterkészletére; 

730—740: fejrész kinyomtatása a beállításoknak megfelelően; 

— ha nincs ,,B” oldal, nem ír két fejrészt; 

750: az új krakterck kikapcsolása (directory-hoz nem kell); 
760: nyomtatás a beolvasott fdc-k számának megfelelő meny- 
nyiségig; 

770: ,,Mini’-nél nincs REVERS, ezért felsőkeretet rajzol a fej¬ 
résznél; 

780: a directory nyomtatása; 

— ha van ,,B” oldal, ugrás VTAB-ra és nyomtatás; 

790: ,,Mini’-nél alsókeretet rajzol a fejrésznél; 

800: ugrás a következő sornyomtatásra, vagy vége; 

810: nyomtató RÉSÉT, minden beállítás (új karakterkészlet) 
törlése; 

820: kinyomtatott nevek tíírlésc, vissz.a a beállításokhoz. 

Ezután következnek a használt rutinok, ezeket is érdemes 
tanulmányozni! 

Fejrész felírása: a MINI nyomtatás esetén keretet rajzol a 
lemeznév köré ha kell! 

A/B lemezoldalak beolvasása: N1$(0)—Nl$(145), illetve 
N2$(0)—N2$(I45) változókba a szükséges (ZA) értékig. Előtte 
iniciálás, DRIVE ellenőrzéssel. A rutinok ismertek az előző C- 
újságokból. A 1030-as sorban a második Icmezoldal neve nyom¬ 
tatóparanccsal kezdődik (REVERS ki), hogy a fejrész előtti " 0 " 
kiírása pontos legyen; 

— IlOO-ban ha az első lemezoldalon kevesebb a fiié, a he¬ 
lyük SPACE-val (T$) kipótolva. 

Várakozás: 1160-ban POKEÍ98,0-al a billentyűzetpuffert ki¬ 
ürítettem, hogy a kiírás utáni billentyűzctnyomások számítsanak 
csak, ezzel a véletlen.szcrű továbbhaladást gátoltam meg; 

— 1180-ban visszatérés lehetősége " — " esetén új beállí- 
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tásra (MENÜ-ben) szinte mindig; 

— 1190-ben 24. képernyősor törlése; 

— 1200-tól található a figyelmeztető hang. 

Hibajelzés: FLOPPY-hiba esetén kiírás és billentyűre vára¬ 
kozás, majd MENÜ. 

Ékezetes betűk 120D-re: RESTORE kell, hiszen minden 
nyomtatás előtt meghívjuk a rutint (nyomtatás után mindig töröl¬ 
jük az új karaktereket); ez azért jó megoldás, mert nyomtatás 
közben a nyomtatót így akár ki is lehet kapc.solni: 

— 1370-ben ROM má.solás RAM-ba; 

— 1380-ban átírandó karakterek kijelölése, majd a karakte¬ 
rek átírása. 

Directory a képernyőre: a képernyő törlése (feltolással) után 
a fejrész felírása, ezután sonszámmal a directory; beolvasás 21 
file után billentyűnyomásig szünetel, elválasztóvonal rajzolása 
után folytatódik. 


Műveletek, vonalak: szövegváltozókban rögzítettem a szük¬ 
séges grafikát, szöveget és SPACE-t. 

22. sorba/törlés: változókkal nem oldhattam meg, mert a 
beállítások során is meghívásra kerül; 

- 1730-ban CURSOR állítás a 22. sorba; 

— 174()-ben 22. sor törlé.se. 

Printer ellenőrzése: ha rendben, akkor vi.s.szatérünk; hiba 
megszüntetése után is! 

Az ABC-vel részletesen foglalkoztam már! 

Azt, hogy más nyomtatókon működik-e, nem tudom, ki kell 
próbálni. Segítségül leírom a CITIZEN 120-D jellemzőit: 

* Y8304 COMMODORE Serial B.I.P. 

* ROM Version No.: K403-0202(-03) 

A programot a nyomtatóparancsok átírásával, néhány éke¬ 
zetes betű kihagyásával is érdemes saját nyomtatóra átdolgozni. 
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RÉM : DIRYDIRY PRINTMESTER 

RÉM : MESSSOFT - C64 S< CITIZEN120D 

RÉM : 

PRINTCHR$(147):POKE53280,.:P0KE53281,.:P0KE214,8i 
PRINT,"DIRYDIRY PR I NT":PR I NT:PR I NT,"EGY PILLANAT 
GOSUB1780:GOSUB1350:GOSUB1830 

CLR:DIMN1$(145),N2$(145);GOSUB1620:H=54272:Q=781; 
P=.:P$(.)=” A -RA":P$(1)="A/B-RE" 


PRINT 
! ":PRINT, 

U=59903 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT” 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 
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I 1 I I I I n I I I I I I I t I I I I l-I H I t I I M I I I I I M " 

'4P^| I I I 1 I I I ■ 1.1.J-J.-1.J-1 I I I I I I 1 I I I 1. 1.-1.. 1-1 - 1. l-L-l- 




KÉTOLDALAS DIRECTORY NYOMTAT- 


I I M r T T ~ 


I I t~i~'T i~ r I I I 


ITT I t I I t t I I I 11 H -l-l I I I M I I I M I I l- H -4 

BElLL-iTlSOK l"TAB(25)" VtGE I F2" 
-"’TAB (25 ) "-'" ; PR I NT 



N - NORMIL (KB. 50 FI LE/LAP)":PR I NT 
S - SSRí (KB. 70 FILE/LAP)":PR1NT 

M - MINI (KB. 90 FILE/LAP)":PRINT 

FI - DIRECTORY ( ELLEN'^Z t S ) " : PR I NT 
F3 - "P$(P)" NCV & DITUM (FEJ)" 

N/S/M/F(1-3)" 


GOSUB1730;PRINT" VILASSZON 
GOSUB1150:M$=K$:REM VARO 


THENGOSUB1470:GOTO 170 
ANDP=.THENP=1:GOTO 180 
ANDP=1THENP=.:GOTO180 
THENSYS64738 

"ANDM*<>"S"ANDM$<>"M"THEN330 
NORM3L " 

SSRIí " 

MINI " 

POKEQ,I 


IFM4=" 

IFM$=" 

1FM$=" 

IFK$=" 

IFM$<> 

IFM$="N"THENY$=" 
1FM$="S"THENY$=" 
IFM$="M"THENY$=" 

FORI=24T08STEP-1 
P0KE214,6:PRINT:PRINT" 

PRINT" - 

PRINT" MŰVELETEK 

PRINT"- 

F0RI=.T04:PRINTTAB(4)W$( I ) 


SYSUiNEXT 

KIVITEL ig- 

"TAB(26)"- 

a FEJRCSZ:"P$(P)" 


YtTAB(26)"B “JAT I ■«-” 


PRINTiNEXT 

PRINTWÍ 

POKEQ,11:SYSU:GOSUB1730:PRINTU$(0) 

GOSUBl150:RÉM VARO 

GOSUB 1740: GOSUB 1730: PR INT, "OLVASOK.. 

POKEQ,13:SYSU:GOSUB1730:PRINTW$(1):GOSUB1150 
IFK$<>"I"ANDK$<>"N"THEN520 
1FK$="N"THENP0KEQ,15:SYSU:G0T0610 
POKEQ, 15 : SYSU:GOSUB1730:PRINTU$(2) 
GOSUB1150:REM VARO 

GOSUB1740:GOSUB1730:PR INT,"OLVASOK. 


:GOSUB930:REM 


GOSUB1020:RÉM ’B’ 


RÉM PRINT 


POKEQ,17:SYSU:GOSUB1730:PRINTU$(3) 

GOSUBl150:GOSUB1780:GOSUB1730 

PRINTTAB(4)"a RENDBEN ! NYOMTATOK! ” 

OPENl,4 

PRINT#1,CHR$(27)"D"CHR$(35)CHR$(0):REM VALT.HTAB 35-RE 
PRINT#1,CHR$(27)CHRí(108)CHR$(3);:REM BALMARGO 3-RA 
IFM$ = "S^'THENPRINT#1 , CHR$ (27) "0" ; 

IFM$="M"THENPRINT#1,CHRí(27)CHRt(15);CHR$(27)"S0";CHR$(27)"1" 

N$ = " N$V:-" 

D$ = " D%TUM: tV HÉ< NAP" 

PRINT#1,CHR$(27)"%1"CHR$(0) 

PRINT#1 Ni;: IFP = ITHENIFN2i(0)<>""THENPRI NT#1,CHRi(9)Ni; 

PRINT#1:PRINT#l,Di:: IFP=ITHEN1FN2i(0)< >""THENPRI NT#1,CHRt(9)D$; 
PRINT#1,CHRi(27)"%0"CHRt(0) 

FORI=.TOZA 


o 

o 

o 

o 

o 


o 

o 

o 


o 

o 

ü 

o 

o 

o 

o 

o 

o 

o 

o 

o 

0 
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PROGRAM 



o 

o 

o 

o 

o 

o 


o 

o 


o 

o 

o 


o 

o 

o 


o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


770 IFI=.THEN1FM$=”M"THENGOSUB860 

780 PRINTtH,Nl$(I);: IFN2$(I )<>""THENPRI NT#1,CHR$(9);N2$(I); 

790 IF1=.THENIFM$="M"THENGOSUB880 

800 PRINT«1 :NEXTI :PRINTttl 

810 PRl NTtt 1, CHR$ (27) :CL0SE1 

820 F0RI=.TÖZA:N1$(I)=”":N2$(I)="”:NEXTI:GOTO150 
830 ; 

840 RÉM FEJRÉSZ FELÍRÁSA 
850 : 

860 PRINTttl,Fl$: ; I FN2$ ( 0) <> " "THENPR I NT# 1, CHR$ (9 ) :F1$; 

870 PRINT#1:RETURN 

880 PRINTSl:PRINT#1,F2$: : IFN2$(0)<>""THENPRI NT#1,CHR$(9):F2$: 

890 RETURN 
900 : 

910 RÉM A OLDAL 
920 : 

930 ZA=.:N1Í(0)=" 0 ":0PEN15,8,15,"I":GOSUB1260:RÉM HIBA 
940 0PEN1,8,.,"$":POKEQ, 1:SYS6E478:FÓR 1 = 1T04:GETA$:NEXT:X$=CHR$(0) 
950 FORK=.T027;GETA$:N1$(ZA)=N1$(ZA)+A$:NEXTK 
960 ZA=ZA+1 


970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 


GETAt,A*,Aí,;IFST=64THENSYS65484:GOSUB1260:CLOSEl:CLOSEl5:RETURN 
BL = ASC(A$ + X$)+256»ASC(B$ + Xt):N1 $(ZA)=STR$(BL) + " ":GOTO950 

‘rém b oldal 

ZB=. 

N2«.(0) =CHR$ (27)+CHR$ ( 126)+"20" + " 0 " ; RÉM RVS KI + 

0PEN15,8,15,"IGOSUB1260:RÉM HIBA 

0PEN1,8, .,"$":POKEQ,1:SYS65478:FÓR I=1T04:GETA$:NEXT:X$ = CHR$(0) 

FORK=.T027:GETA$:N2$(ZB)=N2í(ZB)+A$:NEXTK 
ZB=ZB+1 

GETA$,A«,Aí,Bt: IFST = 64THENSYS65484:GOSUB1260:CLOSEl:CLOSE15:GOTO 1100 
BL = ASC(A$ + Xt)+256*ASC(B$ + X$):N2t(ZB)=STRt(BL)+" ":GOTO 1060 
IFZA<ZBTHENFORI=ZATOZB;Nl$(I)=T$:NEXTI:ZA=ZB 
RETURN 

RÉM VÁRAKOZÁS 


: P0KE198, 


GOSUB1730:PRINT:PRINTWÍ 
GOSUB1200:PRINT" BILLENTYŰRE V]ROK ! 

GETKt:IFK$="”THEN1170 
I FK$ = "«-"THEN 160 
POKEQ,24:SYSU:RETURN 
FORI=.T024;P0KEH+I,.:NEXTI 

POKEH+1,130:POKEH+5,9:POKEH+15,30:POKEH+24,8:POKEH+4, 
RETURN 


21 


RÉM HIBAJELZÉS 


, DH 


1NPUT#15.AH.BH$,CH, 

IFAH=.THENRETURN 

GOSUB1730:PR 1NT"LEMEZHIBA!" 

PRINTAH","BH$","CH","DH 
GOSUB1150 

CLOSEl:CLOSEl5:GOTO 160 

RÉM EK BETŰK 120D-RE 

RESTORE 
OPENl,4 

PRINT#1,CHRt(27)":"CHR$(0)CHRt(0)CHRt(0); 
PRINT#1, CHR$ (27) "8<"CHR$ (0 ) CHR$ ( 36) CHR$ ( 38) 
F0RI=1T036:READX:PRINT#1,CHR$(X);:NEXTI 
DATA 128, 126, ,74, ,234, ,74, ,66, , :REMí<-E’ 

DATA 128, 14,16,36,, 228, ,36,16,14,, :REMX+-A’ 
DATA 128, 60,66, , 66, 224,66, ,66,60, , : REMÍ<<i-0’ 
CLOSEl:RETURN 


RÉM DIR.KÉPERNYŐRE 


"»x» DIRECTORY x*»":PRlNTW$ 
OPENl, 8, . , :POKECl, 1 
0 " : 


FORI=.T021:PRINT:NEXTI:PRINT"FSZ." 

Y=. :BL=. :0PEN15.8, 15 ,” I ": GOSUB 1260 . x , u, . , * 

SYS65478:F0RI=1T04:GETA$:NEXT:Xí = CHRt(0):PR INT" 

FORK=.T027:GETA$:PRINTAt;:NEXTK 
PRINT 

Y=Y+1:IFY/21=1NT(Y/21)THENGOSUB1560 
PRINTY"!]. "TAB(5) : 

GETAt, a", A$ , Bt:IFST = 64THENSYS65484:GOSUB1260:CLOSE1:CLOSE15 
BL = ASC(At+X$)+256*ASC(Bt + Xt):PR 1NTSTRt(BL)+" "; :GOTO1500 
PRINTWt:PRINT" BILLENTYŰRE VIROK !"í 
P0KE198,.:WAIT198,1 

POKEQ,24:SYSU:PR I NT:PR INT"n";:RETURN 
RÉM MUVELETEK/VONALAK 


:PRINT:GOTO1150 


Qt = "|^.#rWlTffiT^.";Ut(0)=Qt + ’ 

( lT=Qr+^ MTEIK f ■ ■ ■" ■“ 


_ ' KCREM A LEMEZ 

Ut(lT=Qrr^ MTS'IK OLDALT'IS -RJUKd/N)?" 
Ut(2)=Qt+" KCREM A LEMEZ ’B’ OLDALIT !" 
Wt(3)=Qt+" KCSZ.TSE BE A PAP»RT ! 

FORI = .TO30:Ut = Wt + "-":NEXT I 
F0RI=.T029:Tt=Tt+" ":NEXTI 


OLDALIT !" 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 


o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 
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PROGRAM 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1680 V$ = LEFT$ (W$ , 27) :F1$ = " r" +V$ + "t'’ : F2$ = " + \j$ 

1690 RETURN 
1700 : 

1710 RÉM 22.SORBA/TORLES 
1720 : 

1730 P0KE214,21:PRINT:RETURN 
1740 P0KE781,22:SYS59903;RETURN 
1750 : 

1760 RÉM PRINTER ELL. 

1770 ; 

1780 OPENl,4,7:CL0SE1:1FST=.THENGŰSUB1740:RETURN 

1790 GOSUB1730!PRINTTAB(4)"gS NYOMTATOT NEM TALÁLOM! PCI" ;GOTO1780 
1800 : 

1810 RÉM ABC 
1820 : 

1830 C=49152:IFPEEK(C)+PEEK(C+1)=178THENRETURN 
1840 FORl=.T048:READB:P0KEC+I,B:NEXT1:SYSC 

1850 DATA162,16,169,,141,14,220,169,51,133,1,169,208,160,,132,34,133 
1860 DATA35,169,224,132,36,133,37,177,34,145,36,200,206,249,230,35,230 
1870 DATA37,202,208,242,169,55,133,1,169,1,141,14,220,96 
1880 READA:IFA=-1THEN1900 

1890 FORK=. T07:READB:P0KE57344 + Ai<8 + K, BiNEXTK:GOTO1880 

1900 P0KE53272,PEEK(53272)ANDN0T60R8:P0KE56576,196:P0KE648, 196:PR INTCHR$(147)j 
1910 RETURN 

1920 DATA249,231,231,195, 153, 153, 153, 195,255 
1930 DATA248,231,165,153,153,153,153,195,255 
1940 DATA230,153,255,153,153,153,153,195,255 
1950 DATA228,153,195,153,153,153,153,195,255 
1960 DATA226,231,239,195,231,231,231,195,255 
1970 DATA223,153,153,195,153,153,153,195,255 
1980 DATA220,153,153,255,153,153,153,195,255 
1990 DATA157,231,231,195,153,153,129,153,255 
2000 DATA155,231,231,129,159,135,159,129,255 
2010 DATA121,24,24,60,102,102,102,60, 

2020 DATA120,24,90,102,102,102,102,60, 

2030 DATA102,102,,102,102,102,102,60, 

2040 DATA100,102,60,102,102,102,102,60, 

2050 DATA98,24,16,60,24,24,24,60, 

2060 DATA95,102,102,60,102,102,102,60, 

2070 DATA92,102,102,,102,102,102,60, 

2080 DATA29,24,24,60,102,102,126,102, 

2090 DATA27,24,24,126,96,120,96,126, ,- 1 


O 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 



MID$ többet tud! 


A MID$ utasításnak vannak olyan tulajdonságai amelyek 
nem nagyon ismertek. Ilyen a/, is, hogy két argumentumot is le¬ 
het alkalmazni. így egy sztring egy meghatározott helyétől kezd¬ 
ve a végéig lehet belőle részletet kimásolni. Rend.szerint ez így 
történik: 

PRINT RIGHT$ (A$, LEN (A$) - 10) 

Lényege.sen elegánsabb ugyanez MID-verzióban: 

PRINT MID$ (A$, 10) 


Képernyősorok gyors törlése 


A SYS 59903 paranccsal egyes képernyősorokat előnyösen 
lehet törölni. A törlendő .sorok száma (Z) az X-rekeszben kell 
álljon. Ezt tehát előbb POKE utasítással a 780 memóriacímre 
kell betölteni, ahonnan a SYS-utasítás emeli át az X-rekeszbe. 
Z értéke 0—24 között lehet. A kurzor helyzetét a törlés nem be¬ 
folyásolja. 

POKE 780,Z:SYS 59903 


Directory programveszteség nélkül 


Gyakran szeretnénk megnézni egy lemez tartalomjegyzé¬ 
két, de a memóriában lévő programot sem akarjuk törölni. Ez 
kíinnyen megoldható a következő egyszerű utasításpárral: 

POKE 44, PEEK (46) -I- 1 

Ezzel a BASIC kezdőcíme szabad memóriaterületre helye¬ 
ződik át. Ha most a szokásos módon betöltjük a tartalomjegyzé¬ 
ket, kilistázhatjuk, megnézhetjük. Utána POKE44.8 utasítással 
visszatérhetünk az eredeti helyzethez. 


Képernyő RAM — lemezen 


A képernyő RAM tartalmát a következő kis programmal le¬ 
het mágneslemezre tárolni. 

10 AS$ = ,,fájlnév” 

20 POKE 193,0: POKE 194,4 
30 POKE 173,231: POKE 174,7 
40 SYS 57812 AS$,8 
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Hobbi ELEKTRONIKA 

C-64 bővítések 


Commodore 64, +4, 16 Datassette 

fej beállító 

A Datassette-et használó Commodore-tulajdonosoknak nem kell magyarázni, mit 
jelent a fejbeállítás problémája, hiszen mindenki találkozhatott már vele akkor, 
amikor egy kölcsönl^pott kazettáról a gép nem tudta a programot beolvasni, így 
a másolás meghiüsult. Az alább ismertetett egyszerű kis áramkör segítséget nyújt 
a magnófej korrekt beállításához. 


A fejbeállítás műveletét megkönnyítő 
programok léteznek ugyan, de éppen a hi¬ 
bás fejállás miatt ezek beolvasása is lehe¬ 
tetlen. Megoldást jelent ilyen esetben, ha 
rendelkezünk olyan bővítővel, amely 
autostartosan tartalmazza többek között a 
magnó tesztelését segítő programot is. 
Ilyen bővítő a szerző üzletében működés 
közben mcgekinthető, megvásárolható. 

A most bemutatandó áramkör bővítő¬ 
vel vagy anélkül is kitűnő kontrolt bizto¬ 
sít, hiszen a magnóba beépíthető, és a 
programnál sokkal gyorsabban reagál a 
fcjállás változására. így a tejbeállítás mű¬ 
velete segítségével gyorsabbá, kényelme¬ 
sebbé válik. 

Az áramkör működése, 
a beállítás 

Az áramkör imscrtetcse előtt vizsgál¬ 
juk meg röviden magát a fejbeállítás me¬ 
chanizmusát! 

A magnófej akkor adja le a legna¬ 
gyobb szintű jelet, ha a rés merőleges a 
szalag haladási irányára. Ha a rés állás¬ 
szöge ettől eltér, a jelszint lecsökken, és 
a jel magasabb frekvenciájú komponensei 
elvesznek. A beállítás feladata tehát a me¬ 
rőlegesség biztosítása. Minden magnó 
mechanikája erre lehetőséget nyújt: a fej¬ 
rögzítő szerelvényen megtalálható a beál¬ 
lító csavar. Megfelelő indikáció hiányá¬ 
ban azonban nem tudhatjuk, hogy a csava¬ 
ron milyen irányban és milyen mértékben 
kell állítani. 

A Datassette-ben a fejről levett ana¬ 
lóg jelet egy kisjelű erősítő erősíti, és az 
ennek kimenetén megjelenő, voltos nagy¬ 
ságrendű szinuszos jelet komparátor 

o 


négyszögesíti. A szervizben az analóg 
erősítő kimenőjelét oszcilloszkóppal mé¬ 
rik és a fejbeállító csavarral maximális 
amplitúdót állítanak be. A művelet alapcl- 
ve a mi e.setünkben is hasonló, csak az 
oszcilloszkóp helyett az I. ábra áramkörét 
használjuk az indikálásra, a következők 
szerint. 

A Datassette lejátszik egy progra¬ 
mot, amelyet a számítógép a helytelen fej¬ 
beállítás miatt nem képes beolvasni. A 
Pi-gyel úgy állítjuk be az IC komparálási 
.szintjét, hogy az ingadozó szinu.szjel csú¬ 
csára, vagy egy picit alá essen (2. ábra). 
A komparátor kimenete így perióduson¬ 
ként egy nagyon rövid időre pozitívba bil¬ 
len, telítésbe vezérli a tranzisztort és a 
LED felvillan. Az emberi .szem .számára 


ez folyamatos halvány fényben látszik. A 
beállító csavart elfordítva a LED látszóla¬ 
gos fényereje is változik: ha a jclszint nő, 
a fényerő is nő, ha a jelszint csökken a 
fényerő is csökkenni látszik, esetleg a 
LED ki is alszik. A beállítást ezek alap¬ 
ján a fejbeállító csavarral és a P. potméter- 
rel felváltva végezzük úgy, hogy a P-vel 
minimumra, a csavarral maximumra állí¬ 
tunk. 


Az áramkör megépítése 

Az áramkört egy 22x36 mm-es, egy¬ 
oldalún fóliázott nyomtatott áramköri lap¬ 
ra építjük fel, melynek nyomtatási rajzát 
a 4. ábrán találjuk meg, az alkatré.szek be¬ 
ültetését a 3. ábra szemlélteti. Ha a panel 
elké.szítésc, vagy az alkatré.szek beszerzé¬ 
se gondot okoz, legegyszerűbb egység¬ 
csomagot vásárolni. 

A magnóba történő beépítés előtt cél¬ 
szerű a kész kapcsolást ellenőrizni. Ehhez 
vezessünk a tápfeszültség pontra -1-5 V-ot, 
a bemenetre pedig -1-1,5 V-ot (pl. egy ce¬ 
ruzaelemről). A P-t a 0 V-os állásból felfe¬ 
lé szabályozva a LED-nek egy ponton ki 
kell aludnia, visszafelé csavarva a potmé- 
terl újra ki kell gyulladnia. 


t5V 



E 

E 

E 


3 

3 

El 

3 


1. ábra 


Alkatrészjegyzék: Ellenállás: Félvezető: 

R,: 6,2 kfi R,: 150 fi IC: CA324, LF 357, 

R,! kfi P: 10 kfi T: BC182 


CA 3140. LF 357 

1: offset comp. 

2: inv. bemenet 
3; neminv. bemenet 
4: -U 

5; offset comp. 

6: kimenet 
7: +U 
8: n.c. 


3 

■Q 

1 

BC 182 

1: emitter 
2: bázis 
3: kollektor 


D; tetszőleges típusú LED 
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Az indikátor beépítése 
a Datassette-be 

Az áramkör bemenetét a magnó elek¬ 
tronikájának olyan pontjára kell kötni, 
ahol nagyszintű analóg jel van. Tekintettel 
arra, hogy a Datasette elektronikájának 
legalább négyféle változata ismert, ez a 



művelet nagy körültekinté.st igényel. A 
legjobban elterjedt válto7.atokban a kis¬ 
jelű erősítő fokozatait egy HAI7324 



(LM324), négy műveleti erősítőt tartal¬ 
mazó tokkal, a komparátort pedig egy 
74LS14-essel valósították meg. Az indiká¬ 
tor tápfeszültségét ez utóbbi 7-es és 14-es 
lábáról vezethetjük el. A bemenetet a 
324-es 7-es lábáról kell kötni. Ha a mag¬ 
nóban más típusú integrált áramköröket 
találunk, célszerű az alkalmas áramköri 
pontot oszcilloszkóp segítségével meg¬ 
keresni. 

Ha az áramkör megfelelően működik 
és az előzőek szerint a komparálási szint 



a potenciométerrel beállítható, a nyákot 
M2-es csavarokkal, merev huzaldarabok¬ 
kal, vagy ragasztással rögzítjük a magnó 
dobozában egy alkalmas helyen. A LED 
a dobozba fúrt furaton keresztül bújtatva 
jól látható legyen. 

Figyelem! A gyorsmásolói építőknek 
segít a szerző HOBBI ELEKTRONIKA üz¬ 
letének szolgáltatása. Az üzletben műkö¬ 
dő mintadarabok megtekintése mellett vá¬ 
sárolhat panelt, íC-t, egységcsomagot, 
készterméket. 

Cím: Bp. VII., Dózsa György 16. T.: 
122-8892. Részletes árajánlat a borító 
második oldalán lévő hirdetésben ol¬ 
vasható. 


BASIC start asszemblerben 


Gyakran merül fel az a probléma, hogyan indítsunk egy 
asszembler-programot BASIC-ből. A legegyszerűbb bizonyára 
az, ha a RUN utasítást adhatjuk ki. Ezt a következő utasításokkal 
érhetjük el (Hypra-Ass-Fromátum): 

10 —. OB "név,p,w" 

20 -. ba $0801 
30 -. woNZ 

40 —. wo ZN kéz ;sorszám (tetszőleges) 

50 —. by $9e 
60 —. tx "2062" 

70 -. by 0 
80 —. wo 0 

90 — iprogram következik 

XX —. en 


Gyors END 


Ha egy programot be akarunk fejezni, alternatív lehetőség¬ 
ként kínálkozik a lassú SYS 64738 (rését) helyett 

SYS 58260 
utasítást kiadni. 

A resettel ellentétben ekkor az előzetesen beállított 
képernyő-, keret- és kurzorszínek megmaradnak. Ugyancsak 
megmarad a korábban beállított betűkészlet is, jóllehet a BASIC 
program ugyanúgy törlődik, mint a rését esetén. 


Dupla PEEK 


Ha pl. meg akarjuk állapítani, hogy egy BASIC program 
vége hol van a memóriában, normál esetben billentyűzzük, hogy 
PRINT PEEK (45) -I- PEEK (46) * 256 
Eredményül a gép kiírja a program vége utáni első szabad 
memóriahelyet, amelynek a címe 45 és 46 memóriacímeken van 
tárolva. A DEF FN funkcióval sokkal elegánsabban intézhető el 
ez a lekérdezés egy memóriaszó (16 bit) hosszban. 

DEF FN DEEK (X) = PEEK (X) -t- PEEK (X + 1) * 256 
Ha ezek után beírjuk, hogy 
PRINT FN DEEK (45) 

akkor a gép azonnal kiírja a programvég címét. 


Adatok gyorsabb elérése 


Az 1541 hozzáférési ideje jelentősen rövidíthető. A lemez¬ 
egység megbízható működése nincs akkor sem veszélyeztetve, 
ha a léptetőmotor, ami az író/olvasó fejet mozgatja, lényegesen 
gyorsabban mozog. A motor mozgatását a megszakítasi (inter- 
rupt) rutin vezérli. Ehhez elegendő, ha a megszakítás gyakorisá¬ 
gát változtatjuk, és ezzel befolyásoljuk a motor fordulatszámát. 
A standard beállítású megszakítás kb. 15 ms-onként következik 
be (míg ezzel a programmal kb. 4 ms-onként). Egy megszakítás 
a fejet 1/4 sáv távolságra mozdítja el. Tehát minden fejmozgás 
mintegy négyszer gyorsabban zajlik le. Az időmegtakarítás mel¬ 
lett a lemezegység zaja kellemesen halkabb és rövidebb lesz. 
OPEN 1,8,15 "M-W" -I- CHR$(7) -f CHR$(28) -I- CHR$(1) 
+ CHR$(15) 
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Még többet ésszel! 


XII. rész 

Az előző részben, amikor a dokumentálásról beszéltem, 
csak olyan dolgokat említettem, amelyeket a program elkészíté¬ 
se után kell megtenni vagy leírni. Az, amiről most fogok beszél¬ 
ni, kicsit szintén dokumentálásnak nevezhető, de ezt a program 
írása közben, sőt, az előtt kell elvégezni. 

Egy olyan program írása közben, amelynek az áttekintése 
már próbára teszi a memóriánkat, téljegyzésekben szokás rögzí¬ 
teni a program alapvető vonásait. Ha a feljegyzéseknek olyan 
formát adunk, amely valami nagyjából egységes jelrend.szcrt 
használ, akkor nemcsak elkerülhető a .saját jegyzeteinknek ké¬ 
sőbbi félreértelmezése, hanem kiegészíthetjük velük a fejlesztői 
leírást is, hozzáértők számára. Oktatás során szintén gyakran 
használnak ilyen segédeszközt. A múltkor már megemlítettem 
a három általam ismert egységes jelrendszert, azaz a folyamatáb¬ 
rát, a struktogrammot és a pszeudokódot. Ma ezeket mutatom 
be. 

Mindhárom módszer közös jellemzője, hogy a felhasználni 
szándékozott géphez és programnyelvhez nem kötődik szorosan. 
A program elvét ábrázolják, amely viszonylag kevés módosítás- 
.sal ugyanúgy megvalósítható assemblyben, BASlC-ben vagy 
akár Forth-ban is. Minél közelebb áll az elvi ábrázolás a megva¬ 
lósult alakhoz, annál keve.scbb az értéke: a nyelvfüggő alak ne¬ 
hezebben írható át más nyelvre, és a kész programot legjobban 
a jól olvashatóan elkészített forráskód ábrázolja. 

Ebből következik, hogy az elvi ábrázolás többnyire nem 
olyan elemi utasításokat tartalmaz, amelyek a progranyelvben 
megtalálhatók vagy egyszerűen bchclycttcsíthctők. Ilyen szoros 
megközelítésben a programnak csak olyan részleteit érdemes 
felvázolni, amelyek megvalósítá.sa enélkül nehezen lenne követ¬ 
hető. Érthető forrásprogram esetén ilyen ritkán fordul elő, leg¬ 
feljebb bemutató célzattal. 

Lényeges tulajdonságuk, hogy a manapság ha.sználatos 
programnycivekhez hasonlóan felülről lefelé haladva követik a 
leendő program menetét. Az ettől való eltérésre a módszerek 
nagyon eltérő lehetőségeket nyújtanak, a legszabadosabb a 
BASIC-hez korábban szinte szabványosan használt folya¬ 
matábra. 

A nevét ez onnan kapta, hogy eredetileg munkafolyamatok, 
vezérlési feladatok során használták a műveletek sorrendjének, 
viszonyának bemutatására, és csak később emelték át a progra¬ 
mok tervezésébe. Másik, talán még közismertebb neve a blokk¬ 
diagramm, amely a rajz jellegzetes megjelenésére utal. A műve¬ 
letek sorendjét, a programágakat vonalakkal kell ábrázolni, és 
ezeket szakítjuk meg a program ré.szeit jelző kis blokkokkal, sík¬ 
idomokkal. A lehetséges műveletek néhány alaptípusát egyedi 
alakzatok jelzik, ezeket az 1. példában felsorolom. A módszer 
egyik gyengéje, hogy a jelrendszer a sokféle felhasználási terület 
miatt nem vált teljesen egységessé, a szakkönyvekben sem talál¬ 
hatunk valamiféle szabványt. De az is igaz, hogy a különféle kis 
ábráknak nincs alapvető jelentősége. Ha az ábrákba írt szöveg 
egyértelműen meghatározza a műveletet, akkor akár csupa tég¬ 
lalapból is állhat a rajz. A hangsúly a folyamatvonalakon van. 


a 


A struktúráit programozási módszer kapcsán régebben el¬ 
mondtam, hogy BASIC hátrányos tulajdonsága az ugrások túlsá¬ 
gos szabadsága. A folyamatábrán minden egyes ugrást, de az el¬ 
ágazások mindkét ágát is vonallal kell jelezni. Ha egy program¬ 
ról gondo.san megrajzoljuk a folyamatábrát, akkor szemmel 
könnyebben követhetővé válnak az ugrások érkezési pontjai, 
azok helye a program egészében. Még fontosabb, hogy .szemmel 
láthatóvá válik, ha a programot gubancosán, logikátlanul, ren¬ 
detlenül írtuk meg, és lehetőséget kapunk a hibajavítására. A 
szép program rajzban nagyon unalmas. 

A folyamat iránya föntről lefelé mutat. A csatlakozási pon¬ 
toknál és az egyébként kerülendő hosszabb vonalszakaszokon 
kis nyílfejjel kell jelölni az irányt, mindent megtéve az egyértel¬ 
műségért. Szigorúan tilos felfelé haladó vonalra műveletet he¬ 
lyezni, mivel az elrontja az érthető.séget, és ellenkezik a progra¬ 
mok valóságos végrehajtási irányával. Ugyancsak tilos a kijelölt 
ciklusba való beugrás, ez sajnos figyelmetlen.ségből előfordul. 
Elágazásoknál, amelyek többszörösek is lehetnek, több prog¬ 
ramág halad párhuzamosan. Ezt a program megírásakor (az ún. 
kódoláskor) esetleg szubrutinnal vagy egymást kikerülő prog- 
ram.szakaszokkal kell megvalósítani, de a tervezéskor nem kell 
ilyesmire is gondolni. 

A kis alakzatokba írt szöveggel kell a műveletet közelebbről 
meghatározni. Itt még kevesebb a kialakult hagyomány. Lehet 
magyarul, angolul, rövidítésekben, egész mondatokban vagy 
más módon rögzíteni a tennivalót; mindegy, csak érthető legyen. 
A már elmondottak szerint nem tilos, de rendszerint csak bemu¬ 
tató célzattal szokás egy programszakaszt utasításonként önálló 
blokkba tagolni. A gyakorlatban inkább olyasféle átfogó címsza¬ 
vakat használunk, mint pl. ,,Képernyő előkészítése”, ,,Hos,sz 
beírása”, ,,Hibaüzenet” és ha.sonlók. 

Nem helyes dolog az egész programot egyetlen kígyóba fűz¬ 
ni, mert nem látható át elég jól. Ahogy az a forrásprogramban 
és célszerű, itt is érdemes .szubrutinokként külön bemutatni egy- 
egy ös.szcfüggő szakaszt. A szubrutin elejében levő ovális címké¬ 
be kell írni azt a nevet, amelyet a szubrutint hívó kettős falú tégla¬ 
lapba is írtunk, a visszatérést egy END vagy RETURN tartalmú 
címke jelzi. A főprogram neve általában START vagy MAIN. 
Természetesen nem kötelező a forrásprogramban is szubrutinba 
írni, amit az ábrán abba tettünk és viszont. 

A folyamatábra mára gyakorlatilag kiment a divatból. Hibá¬ 
jaként .szokták felróni, hogy a vonalakat össze-vissza lehet húz- 
gálni, és így az ábra áttekinthetetlenné tehető, tervezésre alkal¬ 
matlan. Dchát igaz lehet ez a BASIC nyelven megírt programok¬ 
ra is. Ha már ilyen ez a nyelv, akkor nem baj, ha az ábra is be 
tudja mutatni a .sajátosságait. Nem kötelező rondán programoz¬ 
ni. És sajnos a nyelvből hiányzik egy-két olyan alapelem, ame¬ 
lyet a másik két ábrázolási módszer sűrűn alkalmaz. 

A modern ,,komoly” programnyelvek tudói számára a 
strukturálás a vezérelv. Ehhez is kialakítottak egy sajátos ábrázo¬ 
lási formát, a struktogrammot. Csak háromféle eleme létezik 
(2. pl.), mindegyik téglalap alakú. Ennek az a haszna, hogy fo- 
lyamato.san egymáshoz ragaszthatók, és egymásba ágyazhatók. 
A programot egy hosszú téglalapként kell elképzelni, amelyek 
ki.sebbekre vannak tagolva. így kerülhet például több, egymás 
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alatti művelet egy ciklusmagba vagy egy ciklus egy elágazás va¬ 
lamelyik ágába. A program végrehajtása felülről lefelé történik. 
Folyamatvonal nincs, ezért nincs ugrás .sem. Igazából ez Jó do¬ 
log, csak a megvalósításához olyan nyelv kell, amelyben megta¬ 
lálható a ciklus elemi utasításként, eltérőben a BASIC-tól. 

Itt is igaz, hogy nem illik egy tömbbe hosszadalmas prog- 
ramsz.akaszt összefűzni, különösen pedig beágyazni, mert elér¬ 
kezünk az olvashatatlanul apró betűkhöz. A szubrutinnak nincs 
külön jele, hanem a művelet nevét szokás kis keretbe, címkébe 
foglalni, ami persze .szerepel a külön helyen ábrázolt .szubrutin 
elején is. 

A módszer kidolgozói és a programozás tojásfejű tudósai ki¬ 
fejlesztettek egy sajátságos kódrendszert a műveletek megneve¬ 
zésére is, amely a Pascal nyelvre kicsit, a matematikai képletekre 
pedig nagyon hasonlít, és összeköti a program elvi tervezését an¬ 
nak ábrázolásával. Gyakorlati célra saját véleményem (tapaszta¬ 
latom) szerint nem használható, jobb ehelyett a magunk kreálta 
értelmes rövidítéseket használni, mint a folyamatábránál el¬ 
mondtam. 

Mindkét bemutatott módszer javára szól, hogy rajzban mu¬ 
tatja meg a program szerkezetét. Hátrányos viszont, hogy egy 
ilyen leíráshoz rajzolni kell, ami néha elég kényelmetlen dolog, 
mint például e cikk írásakor nekem. A rajzok nyilvános közlése, 
újságban való megjelentetése szintén gondokkal jár. Részben ta¬ 
lán ezért alakulhatott ki a harmadik, csak szöveges elemeket al¬ 
kalmazó módszer, a pszeudokód. Magyarra esetleg látszatkód¬ 
nak fordíthatnám, de ez igen hülyén hangzik. 

Mégis kifejezi ez a szó a módszer sajátságát: úgy néz ki, 
mintha porgramot írnánk, de mégsem azt tesszük. Ugyanis nem 
egy valódi gépen létező valódi programnyelv elemeiből építke¬ 
zünk, hanem egy szinte általunk kitalált látszólagos program¬ 
nyelvet használunk. így megtehetjük, hogy olyan műveletet feje¬ 
zünk ki egyetlen szóval, amely semmilyen nyelvben nem létezik 
elemi műveletként, és amelyről akár fogalmunk sincs, hogy fog¬ 
juk majd a valóságban megoldani. 

Azért is vannak valamennyire kötött elemek. Egy valódi 
nyelvhez ha.sonlóan értékadási, ciklust, elágazást, ugrást, eljá¬ 
ráshívást kell végeznünk, és ezekre egységes kódszót kell alkot¬ 
nunk, célszerűen inkább magyarul. Jó, ha ezeket nagybetűkkel 
írva elkülönítjük az egyéb szövegektől, a kifejtett eljárások 
(szubrutinok) neve kezdődjön nagybetűvel. Például Legyen 
a=0; Ciklus Amíg v(k; Ciklus Vége; Ha feltétel Akkor Eljárás 
Különben művelet; Menj címke és ehhez hasonlók. A sorokat 
lehet nem .számokból álló címkével jelölnünk, az. alárendelt so¬ 
rokat beljebb tördelnünk, eljárásoknak formális paraméter- 


átadást terveznünk, minden olyasmit tennünk, ami nem szokás 
a BASIC-ben. A lényeg az, hogy a program felülről lefelé halad¬ 
va elvileg működőképes legyen. 

Szerencsés dolog, hogy ez a módszer a hazai programozás¬ 
oktatásban elterjedni látszik, emiatt tankönyvekben is találkozni 
lehet ilyen példákkal. Következésképpen kialakult egy közelítő¬ 
leg szabványos rendszer és kódszótár, de ezt nem kötelező fel¬ 
használnunk. A módszer célja, hogy segítsen bennünket egy.sze- 
rűen, szavakban de rendezett formában leírni mindazt, amit a 
programmal elvégeztetni akarunk. Ha eközben egy nyelv korlá¬ 
táit hiányolnánk, akkor írhatnánk a programot egyből BASIC- 
ben is. 

Kissé felületes volt ez az áttekintés, de talán elégséges. Leg¬ 
közelebb egy biztosan népszerűbb témával, a külső egységek ke¬ 
zelésével kezdünk foglalkozni. 


Hódi Gyula 


Az EPROM BT. A Commodore 64-re az ismert D&T cárt- j| 
ridge családja mellett kifejlesztett egy teljesen új. két rész- !: 
bői álló modulrendszert. > 

I Részei: ;j 

1 1./ BASIC MODUL i| 

Jelölése: BM. |* 

Helye: a C-64 ROM bővítő portja. \i 

Tartalma: - NYÁK csatlakozó, a cserélhető 

modulok számára, \ 

- RÉSÉT gomb. , 

i Fogadhat: 1 vagy 2 — csak cégünk által progra- ; 

j mozott — IC-t ■ 

j A cserélhető modul helyes csatlakoztatása mechani- 

I kusan biztosított. 

[ 2.1 CSERÉLHETŐ MODUL j 

j Helye: a BASIC MODUL NYÁK csatlakozója. • 

i Megnevezése: játékprogramok esetén : 

GAME MODUL. [ 

1 IC-vel 85—100 Kbyte terjedelem, í 

4 változat, 4—5 programAráltozat. 

2 IC-vel 170—200 Kbyte terjedelem, 

6 változat 8—10 program/változat. 
Szoftveres menüváltás és modulkikapcsolás. 

■ Minden termékre 6 hónap garancia + használati útmutató. 

; Árak: BASIC MODUL 1100 Ft, 

GAME MODUL 1000 Ft 1 IC-vel, 

! 2000 Ft 2 IC-vel, 

» Az árak az ÁFA-t tartalmazzák! 

I Megrendelhető: EPROM BT. 

1 1046 Budapest, Török I. u. 25. 

Tel.: (1) 1690-779 Postai utánvét! 


C-64-es lemezre keresem: 
METALDREAM, TIME 
CRYSTAL, DRAGON HUN- 
TER, CATALYPSE működő 
programokat. Stierbach, 1224 
Budapest, VII. u. 4. 

Eladó: COMMVC-20, C-64 
tápegység, 1531 magnó, Phi¬ 
lips 80 computermonitor, Ju- 
noszty 403 TV. Stierbach, 
Tel.: 227-22-60, 1224 Buda¬ 
pest, VII. u. 4. 


C-64-es programok eladók 
lemezen és egy C-64-hez 
való magnó. Érdeklődni: 
PAD SOFTWER, 6772 
Deszk, Alkotmány u. 4. Tel.: 
62 371-491. 

Programokat cserélek C-64 
kazettára (800 program). 
Listát küldök és cserélek. 
Keresem a Commodore új¬ 
ság régi számait 1990-ig. 
Tagsági szám: 2563. 
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Birodalom 


Az 1992/9. számukban meghirde¬ 
tett pályázatra küldöm ezt a pálya¬ 
munkát. 

A lemezen a BIRODALOM.P című 
program, amely megfelel a pályázati ki¬ 
írásnak (C-64-re). 

Ennek egy több térképes változata 
a BIRODALOM, és ennek a -i-4-es át¬ 
irata a BIRODALOM-1-4. 

A játék szabályai és leírása: 

A játék a RISK nevű társasjáték 
egy korcs változata. A játék egy térké¬ 
pen játszódik, amelyen négyzet alakú 
országok vannak. A játékot az nyeri, aki 
az összes országot elfoglalja. Csak 
szomszédos országot lehet megtámad¬ 
ni. Két ország szomszédos, ha van kö¬ 
zös oldaluk vagy vízi út köti őket össze. 
Csata esetén mind a két fél egy-egy do¬ 
bókockával dobegyet-egyet. Ha a védő 
fél kisebbet dobott, akkor eggyel csök¬ 
ken a seregei száma. Ha a védő nem 
kisebbet dobott, mint a támadó, akkor 
a támadó seregeinek száma csökken 
eggyel. A csata addig tart, amíg vagy 
elfogy a védő serege, vagy a támadó¬ 
nak csak egy serege marad, 

Az egész játékra vonatkozó sza¬ 
bály, hogy minden országban legalább 
egy seregnek lennie kell. 

Minden lépés végén végrehajtható 
egy sereg átcsoportosítás szomszédos 
területek között. 

Minden lépés elején kapnak a játé¬ 
kosok sereget, a birtokukban lévő or¬ 


szágok száma/3 darabot, de legalább 
kettőt. Az országokra a tetejükön lévő 
számmal lehet hivatkozni. Az országok 
közepén lévő szám a rajtuk lévő seregek 
számát jelöli. Az országok színe a tulaj¬ 
donosára utal. Az éppen lépésben lévő 
játékos színe a térkép alatti rész bal 
felső sarkában található, mellette a ne¬ 
vével. 

A játék elején a program bekéri a 
játékosok számát, majd hogy ember-e 
vagy gép. Ha az adott játékos ember 
lesz, akkor a 0-át kell leütni, ha gép, ak¬ 
kor az 1-et. Demoként lehet csak gépe¬ 
ket is játszatni egymással. 

A stratégia leírása: 

A gépi játékosok irányítottan, vé¬ 
letlenszerűen játszanak. A véletlensze¬ 
rűség kiküszöbölése esetén az azonos 
stratégiát játszó gépi játékosok között 
gyakran patt jöhetne létre. A gép szá¬ 
mára kétfajta stratégia van, amit a prog¬ 
ram az 545-ös sorban véletlenszerűen 
rendel a gépi játékosoknak. 

A két stratégia több gépi játékos 
esetén kiegészíti egymást. Az egyik 
egy kalandozóbb játékot eredményez, 
a másik pedig összefüggőbb területe¬ 
ket. 

A gép csak olyan területre tesz se¬ 
reget, amelynek van ellenséges szom¬ 
szédja. Véletlenszerűen kiválaszt egy 
területet, és egyesével lépked addig, 
amíg nem talál olyan területet, ahová 
leteheti (3050-3110). 


Ezután élőiről vagy hátulról végig¬ 
nézi az összes területet. Ha saját te¬ 
rületre akadt, akkor annak az összes 

TS 

szomszédját sorra veszi és 1 —- 

6xUS 

valószínűséggel elveti a támadást, ahol 
a TS a támadó sereg nagysága, a VS a 
védő sereg nagysága és a negatív való¬ 
színűség is nullának számít (3160 sor). 

Ha nem vetette el a támadást, ak¬ 
kor két eset lehet: 

I. — ha a játékos területének száma 

meghaladja az összes terület 
számának harmadát, akkor tá¬ 
mad (3155sor). Acél: minél ha¬ 
marabb minél több terület szer¬ 
zése, és az ellenfelek minél ha¬ 
marabbi lerohanása. 

II. — ha nincs meg az összterület har¬ 

mada, akkor itt válik szét az a két 
stratégia. 

1. 2/3-as valószínűséggel elveti 
a támadást (3160). Ez azért 
kell, mert hamar elkopnának a 
seregei. 

1 

2. -valószínűséggel támad, 

ES + 1 

ahol ES a támadandó terület¬ 
nek a nem a támadó kezén 
lévő szomszédos területeinek 
száma (3165). 

Ez azt eredményezi, 
hogy inkább a kevesebb ellen¬ 
séges szomszéddal bíró terü¬ 
letet támadja meg, és ha el 
foglalja, így neki is kevésbé nő 
az ellenségei száma. 

Szín Róbert 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


MT=91:MJ=15:REM **MAXIMALIS TERÜLET ES JÁTÉKOS** 


) 


RÉM 

RÉM 

RÉM 

RÉM 

RÉM 

RÉM 

RÉM 


*SZ0MS2EDSAG* 

*KIE* 

*MEKK0RA SEREG* 
*EMBER V. GÉP* 
*NEVEK* 

*HANY TERÜLETE* 
*K00R0INATAI* 


DIM T17.(MT,8 
DIM T2(MT) 

DIM T3(MT) 

DIM T4(MJ) 

DIM T5$<MJ) 

DIM T6(MJ) 

8 DIM T7(MT,2) 

10 SZ=55296 

20 POKE53280,0;POKE53281,0:POKE646,15 
25 P0KE141.PEEK(162) 

32 PRINT"3“ ;PRINT"HANY JÁTÉKOS?<2-15)'' 
40 INPUT JA 

50 IF <JA<2)0R(JA>MJ)THEN 32 
60 PRINT":;" ;PR1NT" MELYIK PALYA?(l-5)’ 
70 INPUT PA:IF (PA<1)OR(PA>5)THEN60 


4 







80 PRlNT ■' :j ML!!M!!Íiailil!i»8i»l>l»li»Íi8t»» i P OLGOZOM!" 
90 PK=10240+2048* < PA-1) 

100 TE=PEEK(PK+1023) 

200 RÉM *T1 FELTOLTESE* 

205 MU=PK+1024 

210 FÓR 1=1 TO TE 

220 MLI=MU+1 :K=PEEK(MU):T1Z(I,0)=K 


O 

O 

O 

O 

O 

O 

O 

o 

o 

o 
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PALYAZAT 




230 

FÓR J=1 TO K:MU=MU+1:X=PEEK(MU):T1%(I,J)=X:NEXT 


o 

240 

NEXT 

O 


245 

MU=PK+1524 

o 

250 

FÓR 1=1 TO TE:MU=MU+1:X=PEEK(MU):T7(I,1)=<X-1)»3 


255 

MU=MU+1:X=PEEK(MU):T7(I,2)=(X-1)»3;NEXT 

O 


400 

POKE53280,0 


o 

410 

P0KE53281,0 

O 


420 

P0KE646.15 


500 

REM»MECCS* 


o 

505 

PR INT";:" 

O 


510 

PRINT"EMBER:0 , GÉP:1 " 


o 

520 

FÓR 1=1 TO JA 

O 


530 

PRINTI;". EMBER V. GÉP (0/1INPUT X;IF (X<>1)AND(X<>0)THEN 530 



540 

T4(I)=X 


o 

545 

IF X=1 THEN T4(I)=INT(RND(0)»2+1) 

o 


550 

PRINT"NEVE:";:INPUT T5S(I) 


o 

560 

NEXT 

o 


565 

PR INT";:" 


o 

570 

FÓR 1=0 TO 999:POKE1024+I,PEEK(PK+n;NEXT 

0 

580 

FÓR 1=1 TO MJ:T6(I)=0:NEXT 


600 

FÓR 1=1 TO TE 


o 

610 

X=INT(RND(1)*JA)+1 

o 


620 

T2(I)=X 


o 

630 

T6(X)=T6(X)+1 

o 


635 

S1=X:TS=I;GOSUB 6000 


640 

X=INT(RND(1)*9)+l 


o 

650 

T3(I)=X 

o 


660 

TS=1:SI=X:GOSUB 6500 


o 

670 

NEXT 

o 

1000 

REM*JATEK» 

o 

1010 

N=0 


1020 

FÓR 1=1 TO JA:IF T6(I)=0 THEN N=N+1 

o 


1025 

NEXT 


o 

1030 

IF N=JA-1 THEN GOSUB 5000:GOTO 10 

o 

1040 

FÓR E=1 TO JA 


1050 

IF T6(E)=0 THEN 1100 


o 

1060 

IF T4(E)=0 THEN GOSUB 2000 

o 


1070 

IF(T4(E)=1)0R(T4(E)=2)THEN GOSUB 3000 


o 

1100 

NEXT 

o 


1200 

GOTO 1000 


2000 

RÉM *JATEKOS« 


o 

2010 

RÉM *E=JATEK0S SZAMA* 

o 


2020 

P0KE214,21:POKE211.1:SYS58732 


o 

2022 

PRINT" 

o 

2025 

P0KE214,21:P0KE211,1:SYS58732 



2030 

PRINT T5$(E):POKE1024+21*40,32+128:POKESZ+21*40,E 


o 

2050 

US=2 

o 


2060 

IF T6(E)/3>2 THEN US=INT(T6(E)/3) 


o 

2070 

GOSUB 6800 

o 

2075 

PRINT US;"SEREG,HÁNYÁS TERÜLETRE KERED"; 


2080 

INPUT A$:S1=VAL(A$);IF (Sl<1)0R(S1>TE) THEN 2070 

o 

ü 

2085 

IF T2(S1)<>E THEN 2070 


2090 

GOSUB 6800 


o 

2095 

PRINT "HÁNYÁT 1 -“lUS; 

o 

2100 

INPUT A$;S2=VAL(A$):IF (S2>US)OR(S2<0) THEN 2090 

o 

2110 

T3(S1)=T3(S1)+S2:US=US-S2 


2120 

TS=S1;SI=T3lSl):GOSUB6500 

o 


2130 

IF US>0 THEN 2070 


o 

2200 

GOSUB 6800 

o 

2210 

PRINT"TÁMADSZ I/N";:INPUT A$:IF (A$<>"I“)AND(A$<>"N"ITHEN 2200 


o 

2220 

IF A$="N" THEN 2300 

o 

2230 

GOSUB 6800:PRINT"HONNAN"INPUT A$:SÍ=VAL(A$) 


2235 

IF (S1<1 )OR(Sl.>TE) THEN 2230 


o 

. 2238 

IF T2<S1)<>E THEN2230 

0 

2240 

GOSUB 6800:PRINT“HOVA"INPUT A$:S2=VAL(A$) 

o 

2245 

IF (S2<1)0R(S2>TE) THEN 2240 

o 

2248 

IF T2(S2)=E THEN2200 


, 2250 

N=0;FOR J=1 TO T1%(S2,0):IF T1%(S2,J)=S1 THEN N=1 


o 



o 


27 
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c 







PÁLYÁZAT 


o 

2255 

NEXT.IF N=0 THEN 2240 


2260 

C1=S2:C2=S1:GOSUB 7000 

O 


2280 

GOTO 2200 


Q 

2300 

RÉM *ATCSOPORTOSITAS* 

O 


2310 

GOSUB 6800 

O 

2320 

PRINT“CSOPORTOSÍTASZ AT I/N“;:INPUT A$:IF (A$<>"I")AND(A$<>"N"ITHEN 2310 

O 

2330 

IF A$="N“ THEN 2500 


2340 

GOSUB 6800 :PRINT''HONNAN''INPUT A$ :SÍ =VAL( A$) 


O 

2345 

IF (S1<1)0R(S1>TE) THEN 2340 

o 


2348 

IF T2(S1)<>E THEN 2340 

Ü 

2350 

GOSUB 6800 :PRINT''HOVA" ;; INPUT A$:S2=VAL( A$) 

o 

2355 

IF (S2<1)0R(S2>TE) THEN 2350 


2358 

IF T2(S2)<>E THEN 2300 


O 

2360 

N=0:FOR J=1 TO Tr4(S2,0):IF T17.(S2, J)=S1 THEN N=1 

o 


2370 

NEXT:IF N=0 THEN 2350 


O 

2380 

2390 

GOSUB 6800;PRINT"MENNYIT 0 -";T3(S1)-1; 

INPUT A$:N=VAL<A$):IF <N>T3(SÍ)-l>0R<N<0) THEN 2380 

o 


2400 

T3(S1)=T3(S1)-N:T3(S2)=T3(S2)+N 


0 

2410 

TS=S1:SI=T3(S1):G0SUB 6500 

o 


2420 

TS=S2:SI=T3(S2):G0SUB 6500 


o 

2500 

RETURN 

o 

3000 

RÉM *GEP LEP* 


3010 

RÉM *E=JÁTÉKOS SZAMA* 


■ 0 

3020 

P0KE214,21:P0KE211,1:SYS58732 

o 


3022 

PRINT" 


o 

3025 

3030 

P0KE214,21:P0KE211,1:SYS58732 

PRINT T5$(E) .•POKE1024+21*40,32+I28:POKESZ+21*40.E 

o 


3040 

GOSUB 6800 


o 

3050 

US=2 

o 


3051 

EJ=1 


o 

3052 

EE=INT(RND(0)*2) 

o 

3054 

IF EE=0 THEN EJ=-1 


3060 

IF T6(E)/3>2 THEN US=INT<T6CEl/S) 


o 

3070 

H=INT(RND(0)*(TE-1)) 

o 


3080 

H=H+EJ:IF H>TE THEN H=1 


o 

3085 

IF H<1 THEN H=TE 

0 

3090 

IF T2(H)<>E THEN 3080 


3091 

OP=0 


o 

3092 

FÓR G=1 TO T1X(H,0):IF T2(T1X{H,G))<>E THEN 0P=1 

o 


3094 

NEXT 


o 

3096 

IF OP=0 THEN 3080 

o 


3100 

T3(H)=T3(H)+US 

o 

3110 

TS=H:SI=T3(H):GOSUB6500 


3115 

EE=INT(RND(0)*2):IF EE=0 THEN 3300 

o 


3120 

FÓR L=1 TO TE;IF (T2(L1<>E)0RCT3(L)=1ITHEN 3200 


o 

3130 

FÓR G=1 TO Tr/1(L.0):IF T2( T17.( L, G) )=E THEN 3190 

o 


3135 

Z2=T3(L) 



3140 

Z1=T3(T1%(L,G)) 

o 

o 

3150 

IF 6*Z1>INT(RND(0)*6+1)*Z2 THEN 3190 


3155 

IF T6(E)>TE/3 THEN 3168 


o 

3160 

IF (INT(RND(0)*3)>0)AND(T4(E)=1ITHEN 3190 

o 


3161 

IF T4(E)=1 THEN 3168 


o 

3162 

CT=T1X(L.G);ES=0 


3163 

FÓR GT=1 TO T1X(CT,0):IFT2<T1/'.(CT,GT))<>E THEN ES=ES+1 

o 


3164 

NEXT 


o 

3165 

IF INT(RNO(0)*(ES+1>)>0THEN 3190 

o 


3168 

GOSUB 6800:PRINTL;T1X(L.G) 

o 

3170 

C1=T1X(L,G):C2=L:G0SUB 3500 


3190 

NEXT 

o 


3200 

NEXT 


o 

3250 

RETURN 

o 


3300 

RÉM 


3320 

FÓR L=TE TO 1 STEP -1:IF (T2(L)<>E)0R(T3(L)=1ITHEN 3400 

o 

LJ 

3330 

FÓR G=1 TO T1X(L,0);IF T2(TIXIL.G))=E THEN 3390 


3335 

Z2=T3(L) 


o 

3340 

21=T3(T1X(L,G>) 

o 


3350 

IF 6*Z1>1NT(RND(0)*6+1)*Z2 THEN 3390 

o 

3355 

IF T6(E)>TE/3 THEN 3368 

o 


O 
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PÁLYÁZAT 



o 

o 

o 

o 

o 

ü 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


3360 IF ( INT(RND(0)*3)>0)AND(T4(E) = 1>THEN 3390 

3361 IF T4(E)=1 THEN 3368 

3362 CT=Tr/.(L,G) :ES=0 

3363 FÓR GT=1 TO Tl%(CT.0):IFT2(Tl%(CT,GT))<>E THEN ES=ES+1 


3364 NEXT 

3365 IF INT<RND(01*(ES+1))>0THEN 3390 
3368 GOSUB 6800:PRINT L;T1%(L.G) 

3370 C1=T1%(L,6):C2=L:GOSUB 3500 
3390 NEXT 

3400 NEXT 

3450 RETURN 

3500 RÉM *CSATA GEP» 

3510 RÉM »C1=VED0 TERÜLET* 

3520 RÉM *C2=TAMAD0 TERÜLET* 

3550 S1=T3(C1):S2=T3(C2) 

3560 IF S1>0 THEN 3700 
3562 T6(T2(C1))=T6(T2(C1))-1 
3564 T6(T2(C2>)=T6(T2<C2))+1 
3570 T2(C1)=T2(C2) 

3580 TS=C1:SI=T2(C2);GOSUB 6000 

3590 Sl=INT(T3(C2)/2) 

3591 OP=0 

3592 FÓR F=1 TO Tr/.(C2,0) : IF T2 
(Tir.(C2.F)K>E THEN 0P=1 

3594 NEXT 

3596 IF OP=0 THEN S1=INT(T3(C2)/3*2) 

3610 T3(C1)=S1:T3(C2)=S2-S1 
3620 TS=C1;Sí=S1:GOSUB 6500 
3630 TS=C2:SI=S2-S1;GOSUB 6500 
3650 RETURN 

3700 IF S2>1 THEN 3800 
3710 T3<C1)=S1:T3(C2)=S2 
3720 TS=C1:Sí=S1:GOSUB 6500 
3730 TS=C2;SI=S2:G0SUB 6500 
3750 RETURN 
3800 T=INT(RND(0)*6) 

3810 V=INT(RND(0)*6) 

3820 IF T>V THEN S1=S1-1 
3822 IF T<=V THEN S2=S2-1 
3830 TS=C1 :Sí =S1 :GOSUB 6500 
3840 TS=C2:Sí=S2:GOSUB 6500 
3850 T3(C1)=S1:T3<C2)=S2 
3860 GOTO 3500 
5000 RÉM *KI A GYŐZTES* 

5010 PRINT"’.j" 

5020 FÓR 1=1 TO JA :IF T6(I)>0 THEN A$=T5$(I) 
5025 NEXT 

5030 PRINT;PRINT;PRINT:PRINT:PRINT: 
PRINT;PRINT:PRINT 

5040 PRINT" GRATURALOK HŐS ";A$;" VEZER" 

5050 PRINT 

5060 PRINT" A NÉP MINŐ TEGED ÜNNEPEL" 

5100 WAIT 193.1 

5200 RETURN 

6000 RÉM *szíNÉZÉS* 

6010 RÉM *S1=SZ1N * 

6020 RÉM ♦TS=TERULET* 

6050 N=T7(TS,1)*40+T7(TS,2) 

6060 POKE SZ+N,SI 

6061 POKE SZ+N+1,SI 

6062 POKE SZ+N+2.SI 

6070 POKE SZ+N+40,SI 

6071 POKE SZ+N+41,SI 

6072 POKE S2+N+42.SI 
6080 POKE SZ+N+80,SI 


6081 POKE SZ+N+81,SI 

6082 POKE SZ+N+82,SI 
6090 RETURN 

6500 RÉM *S2AM KIÍRÁS* 

6510 RÉM *TS=TERULET* 

6520 RÉM *SI=S2AM* 

6550 N=<T7(TS,1)+l)*40+T7(TS.2)+1 

6560 IF Sí>9 THEN 6600 

6570 POKE SZ+N,12:P0KE 1024+N,48+SI 

6580 POKE SZ+N+1.T2(TS):P0KE 1024+N+1,160 

6585 POKE SZ+N-1,T2(TS);POKE 1024+N-1,244 

6590 RETURN 

6600 IF SI>99THEN 6700 
6605 N1=INT<SI/10) 

6610 N2=SI-N1*10 

6620 POKE SZ+N,12;P0KE 1024+N,48+N1 
6630 POKE SZ+N+l,12:P0KE 1024+N+l,48+N2 
6640 POKE SZ+N-1-. T2(TS) :POKE 1024+N-1.244 
6650 RETURN 
6700 N1=INT(SI/100) 

6710 N2=INT(<SI-100*N1)/10) 

6720 N3=SI-100*N1-10*N2 
6730 POKE SZ+N+l.12:P0KE 1024+N+l.48+N3 
6740 POKE SZ+N .12:POKE 1024+N ,48+N2 

6750 POKE SZ+N-l.12:POKE 1024+N-1,48+Nl 
6760 RETURN 

6800 RÉM *KUR20R BEÁLLÍTÁS* 

6860 P0KE214.22:P0KE211.1:SYS58732 
6870 PRINT" 

6875 PRINT" 

6880 P0KE214,22;P0KE211.1;SYS58732 
6890 RETURN 
7000 RÉM *CSATA* 

7010 RÉM *C1=VED0 TERÜLET* 

7020 RÉM *C2=TAMAD0 TERÜLET* 

7050 S1=T3(C1):S2=T3(C2) 

7060 IF S1>0 THEN 7200 
7062 T6(T2{C1))=T6(T2(C1))-1 
7064 T6(T2{C2))=T6(T2(C2))+1 
7070 T2(C1)=T2(C2> 

7080 TS=C1:Sí=T2(C2):GOSUB 6000 
7090 GOSUB 6800:PRINT"HANYAT VISZEL AT 
1 -";S2-1; 

7100 INPUT A$;S1=VAL(A$):IF 
(SÍ<1)OR(SÍ>S2-1)THEN 7090 
7110 T3(C1)=S1:T3(C2)=S2-S1 
7120 TS=C1 :SI=S1 :GOSUB 6500 
7130 TS=C2:SI=S2-S1;G0SUB 6500 
7150 RETURN 

7200 IF S2>1 THEN 7300 
7210 T3(C1)=S1:T3<C2)=S2 
7220 TS=C1:SI=S1:GOSUB 6500 
7230 TS=C2:SI=S2;G0SUB 6500 
7250 RETURN 
7300 T=INT(RND(0)*6) 

7310 V=INT(RNDC0)*6) 

7320 IF T>V THEN S1=S1-1 
7322 IF T<=V THEN S2=S2-1 
7330 TS=C1 ;SI=S1 .-GOSUB 6500 
7340 TS=C2:SI=S2:GOSUB 6500 
7350 T3(C1)=S1:T3<C2)=S2 
7360 GOTO 7000 


O 


o 
o 
o 
o 
' o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 












HARDVER 


Plus/4 hardver (C-16, C-116, C+4) 


Letilthatatlan RESET-gomb 


Beharangozó: 

Tisztelt barkácsoló kedvű Olvasóink! 

Szánjuk-bánjuk, hogy eddig így elhanyagoltuk Önöket. Ha még 
nem késő, mostantól egy-két havonta hardver cikkekkel szeretnénk je¬ 
lentkezni és új tippeket adni. Igyekszünk bonyolultabb és közérthe- 
tóT)b kapcsolásokat is közreadni. Terveink között szerepel még 
PAUSE-áramkör, FÉK, EPROM-modul, 256K RAM bővítés, 
EPROM-bank is. Olvasónk kéréseinek is szívesen helyet adunk (csak 
képesek legyünk megtervezni). 


Az itt látható kapcsolás megoldha¬ 
tatlan problémát kíván állítani a prog¬ 
ramjukat bonyolult és értelmetlen módon 
RÉSÉT letiltogatással megoldók elé. Bi¬ 
zonyára mást is zavart már, hogy sok mos¬ 
tanában készült program (játék, átirat, 
demo, intor...) szinte kiirthalatlan a gép¬ 
ből, lévén, hogy nincs .semmi billentyű¬ 
kombináció melyre kilépne, de még a 
RESET-gombot is letiltják. A gép emiatt 
való gyakori ki-bekapcsolása nem igazán 
hasznos sem a tápkapcsolónak, sem az 
idegeinknek. 


Ezen áramkör működésének lényege, 
hogy helyre állítja a feltételeket az eredeti 
RÉSÉT ciklus lefutásához, majd azt vég¬ 
rehajtja. A RÉSÉT letiltásának lényege, 
hogy a programok kikapcsolják a KER- 
NAL ROM-ot, a RAM-ban saját RÉSÉT 
rutint hozva létre. A mi áramkörünk, le¬ 
tiltja a 8501-es mikroprocesszort, közvet¬ 
len írásciklust végrehajtva bekapcsolja a 
KERNAL EOM-ot (STA $FF3E), majd a 
processzort engedélyezve normál RE- 
SET-et ad, ami a belapozott ROM-mal, 
normál módon lefut és a program megáll. 


A (U4A-val) pergésmentesített UJ- 
RESET gomb megnyomása után, a PHI2 
órajellel szinkronizálva (U6A) a busz- 
meghajtók egy része (UIA és UIB) letiltja 
a mikroprocesszort majd végrehajtódik az 
írási ciklus. Ehhez a R/W vonal alacsony 
szintje (UIC) és a megfelelő címek adat- 
buzra helyezése (U2 és U3) szükséges. A 
következő PHI2 ciklusban (U4B) a RÉ¬ 
SÉT vonal aktiválódik (U6B) egy rövid 
időre (U5). 

Az áramkört C-16 esetén érdemes a 
gép dobozába építeni, hiszen ott elég sok 
a hely. C-116 és Plusz/4-nél csak a cartrid- 
ge forma Jelenthet megoldást. Célszerű 
tovább vezetni ekkor az EXPANSION 
PORT-ot, hogy más cartridge-okat is csat¬ 
lakoztathassunk. A buszterheléssekkel 
nem kell törődnünk, az áramkör inaktív 
állapotban (nincs megnyomva az UJ- 
RESET) csak 2 szabvány TTL bemenettel 
terheli a PHI2 vonalat, míg a többi vonalat 
aktív állapotához ez hajtja meg. 

Nagy Tamás 


Lvtj. 1 that1 «n RCSET^-Qomb 
Corrtiuodor* C—16, C—116 •» +4 ^vpakhaz 

1992 Coromodora uJ«bo CC> Nagy Tama« 

Ezek a vezetekek az EXPRNSION PORT-ra csatlakoznak 


Bft «EC r/iT" fiis-ne phi2 cn-no líESET 




Országos Commodora Cowaaulat 


ritla 

NORCSET Extantion unit fon 26A serias 


SXza 

9ocumant Numbar 

líEV 

A 

- 

v06 

Oat* 

Rpril 9# i992|Shaat 1 of 

—r 














































































































28^ 

C64 

91/ 5 

Raster Split 

50.- 

283 

+4 

91/ 6 

ProgramnyjIvantartö 

80.- 

264 

C64 

91/ 6 

Regiszter 

60.- 

285 

C64 

91/ 6 

Digitalizált zene 

50.- 

286 

C64 

91/ 6 

Ékezetes MPS 802 

80.- 

287 

C64 

91/ 7 

•Ékezetes iratkeszito 

100.- 

288 

+4 

91/ 7 

Bűvös téglalap 

100.- 

289 

C64 

91/ 7 

Dominó - H 

100.- 

290 

C64 

91/ 7 

Raktáros 

80.- 

291 

+4 

91/ 7 

Tologató 

60.- 

292 

064 

91/ 7 

Aren 2000 

50.- 

293 

C64 

91/ 7 

Bad Lamps 

80.- 

294 

C64 

91/ 7 

Operation Patriot 

50.- 

295 

+4 

91/ 7 

Mozaik - B 

90.- 

296 

44 

91/ 7 

Logi Kód 

60.“ 

297 

C64 

92/ 1 

Databevívö 

50.- 

298 

44 

91/ 7 

Bőmber 

50.- 

299 

44 

91/ 7 

Dominó ~ K 

50.- 

300 

44 

91/ 7 

The Wall 

40.- 

301 

064 

91/ 7 

Mozaik - K 

50.- 

302 

44 

91/ 7 

Domino - R 

60.- 

303 

44 

91/ 7 

•Borgok Kincse 

190.- 

304 

44 

91/ 7 

Asteroíds 

60.- 

305 

064 

91/ 9 

Ékezetes irat forrás 

40.- 

306 

C64 

91/ 9 

Yugo2 

50.~ 

307 

C64 

91/ 9 

Adventiire - Sz 

130.- 

308 

064 

91/ 9 

Morze Oktató B. 

130.- 

309 

44 

91/ 9 

Memory Oame Plus 

100.- 

310 

064 

91/ 9 

•CapitaJy 

130.- 

311 

C64 

91/ 9 

•Gengszterek 

60.- 

312 

064 

91/ 9 

•Küldetés 2000 

100.- 

313 

064 

91/ 9 

Itt a S hol a S 

50.- 

314 

064 

91/ 9 

Hewing 

50.- 

315 

F4 

91/10 

Mikrobi 

50.- 

316 

44 

91/30 

Nest of Fleas 

•J9U.- 

317 

44 

91/10 

Adventure - F 

100.- 

318 

44 

91/10 

A világ szeme 

150.- 

319 

064 

91/10 

Gondolkozó 

100.- 

320 

064 

91/10 

Memori •• B 

130.- 

321 

44 

91/10 

Matekastély 

100.- 

322 

064 

91/11 

Lottó 

80.- 

323 

064 

91/11 

Totó 

80.- 

324 

064 

91/11 

Német gyakorló 

60.- 

325 

44 

91/11 

Beszélő szótár 

130.- 

326 

44 

91/11 

Fiié examiner 

60.- 

327 

064 

91/11 

yprité szerkesztő 

50.- 

328 

064 

91/11 

Egyszínű Sprite 

50.- 

329 

064 

91/12 

Rulett javítás 

50.- 

330 

064 

91/12 

Tőzsde 

130.- 

331 

064 

91/12 

IQ teszt 

150.- 

332 

064 

92/ 1 

Kai and lap 

8Ü.- 

333 

064 

92/ 1 

Levél író 

80.- 

334 

064 

92 / 1 

KepeinyomaszKolo 

130.- 

335 

C64 

92/ 1 

Sprite Kezelő 

100.- 

336 

Cb4 

n' 1 

Sí - OPAHT 

40.- 

337 

064 

92/ 2 

Patience öuartet 

130.- 

338 

064 

92/ 2 

Monopoly 

130 .- 

339 

064 

92/ 2 

Akasztóia 

80.- 

340 

064 

92/ 2 

Karaktertervező 

60.- 

341 

064 

92/ 3 

Strínq Array Manager 

100.- 

342 

064 

92/ 3 

Sprite Basic 

50.- 

343 

064 

92/ 3 

Screen Help 

50.- 

344 

C64 

92/ 3 

Gyors validate 

60.- 

345 

064 

92/ 3 

BASIC SYNTAXER I. 

190.- 

346 

064 

92/ 4 

Tologató C64-re 

100.- 

347 

064 

92/ 4 

ABC rendező 

100.- 

348 

064 

92/ 5 

•Matek 4 Római számok 

100.- 

349 

44 

92/ 6 

Tesztkészitó 4 értékelő 

100.- 

350 

064 

92/ 3 

BASIC SYNTAXER II. 

190.- 

351 

44 

92/ 7 

Három játék 

UO.- 

352 

44 

92/ 7 

Szökés 

80.- 

353 

064 

92/ 7 

Toto 

150.- 

354 

064 

92/ 7 

DIGIT analízis program 

110.- 

355 

44 

92/ 7 

SCREEN DUMP 

150.- 

356 

064 

92/ 9 

UNISEQ fi lekezelő 

130.- 

357 

064 

92/ 9 

Graphíc Copy 

60.- 

358 

064 

92/10 

Príntfox Resizer 

130.- 

359 

044 

92/11 

Tologató í1. 

150.- 

360 

044 

92/12 

Sprite Plus-4-en 

130.- 

361 

064 

92/12 

Változó 1 ista 

150.- 

362 

064.44 

93/ 2 

Szomszéd játék 

200.- 

363 

064 

93/ 2 

Táblás Játék 

200.- 

364 

064 

93/ 2 

SEDA 

150.- 

365 

064 

93/ 2 

415 * 200 

120.- 

366 

44 

93/ 2 

OTP hitel 

100.- 

367 

064 

93/ 3 

Ca ta1og-Check(CTC > 

150.- 

368 

064 

93/ 3 

Pattogó golyók 

200.- 

369 

064 

93/ 3 

Beszórj tos (EX>-GUTI > 

150.- 

370 

064 

93/ 3 

•Zsirozás 

200.- 

371 

064 

93/ 4 

Attrib 64 

50.- 

372 

064 

93/ 4 

Táblázatnyomt ötó 

80.- 

373 

044 

93/ 4 

Bon tékkeszito 

80.- 

374 

044 

93/ 4 

TV-óra 

50.- 

375 

064 

93/ 4 

Mini Domino 

150.- 

376 

064 

93/ 4 

Menathel lo 

120.- 

377 

064 

93/ 4 

ReverSÍ 

120.“ 

3Vb 

064 

93/ 4 

Tengeri csata 

120.- 

379 

064 

93/ 5 

Videokazet ták 

80.- 

380 

044 

93/ 5 

DlN-karakterek 

80.- 

381 

i:64 

93/ 5 

ÜIRYDIRY 

80.- 

382 

064 

93/ 5 

Birodalom 

J5Ü .- 


-gal lelolt programok csak iemffzen rendelhetők 


EGYESÜLET 



Kérem, hogy a Commodore Újság legközelebbi számában 
jelenjen meg a következő szövegű apróhirdetés; 

(minden kockába egy betűt írjon) 



Tagsági szám 


Feladandó az újság címére: 

Commodore Újság 
Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTYÖ- 
GÖSZOLGÁLAT-tól: 


PROGRAM SORSZÁMA 

ÁRA 

1- 




LU'- 

2. 




LU'- 

3. 



LU'- Ft 

4. 



LM '-Ft 

5. 


LM LM 

6. 



LM'- Ft 

7. 



M LMFt 

8. 



LU'- Ft 

9. 




LU'- Ft 

összesen: 



db LLU '- Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség + munkadíj 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 

A megrendelő neve: . 

Címe;. .. 
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APRÓCSKÁK 


Cr 


C-64, 1541 flopy, MPS-802 
nyomtató, Philips monitor, 
Final-3 cartridge lemezek, 
könyvek, stb. csak 35 000 
Ft. Tel.: 252-3268. 

New line cartridge (magnó 
+ disk) eladó. Gábri, 2330 
Dunaharaszti, Dózsa u. 69. 

C-64-re programok lemezre 
olcsón eladók. Válaszboríté¬ 
kért listát küldök! Bencze 
István, 4031 Debrecen, Gye¬ 
pűsor 59. 

Amiga-500 TV-modullal ol¬ 
csón eladó! 

Tel.: 06 94 10-685. 

Eladó kitűnő állapotban lévő 
C-64/II. + 1541/11. flopy + 
60 lemez + GEOS progra¬ 
mok + magnó + 15 kazetta 
+ 2 db joystick + MPS-803 
nyomtató traktorral + ju- 
noszty tv-hez monitorrá ala¬ 
kítható + 30 könyves szak- 
irodalom és sok-sok újság, 
ifj. Imre Ferenc, 1112 Buda¬ 
pest, Cseresznye u. 3. 


Szakkönyvekhez név és 
tárgymutató készítést válla¬ 
lok. Bagdács Lajos, 4130 
Derecske, Dózsa Gy. u. 15. 

Keresem a Monkey Island I. 
teljes leírását, valamint 
egyéb repülőszimulátorokat 
Amigára. Hajdany Ádám, 
Tel.: 163-29-77. 

C-64-re (kazettára) játék- 
programok olcsón eladók 
(10 Ft/db). Bélyeggel ellátott 
válaszboríték esetében, tájé¬ 
koztatót és listát küldök. 
Minden 20. program után + 
1 db programot ingyen adok. 
Kiss László, 9024 Győr, 
Lajta u. 22. VI/2. 

Eladó C-128D, egér, magnó, 
joystick, 50 lemez 25000 Ft. 
Ráthy, Budapest XlX.ker., 
Árpád u. 11/b. IX/27. Hét¬ 
köznap 5 órától. 

CHESCAD című programot 
vennék lemezen. Berecz 
Szabolcs, 3925 Prügy, Mó¬ 
ricz Zs. u. 41/a. 


C-64 kazettára szuper után- 
töltős programok olcsón el¬ 
adók! Bűdi Norbert, 3900 
Szerencs, Csalogány u. 34/a. 
Tel.: 41 61-662. 

C-64-re kazettára, lemezre, 
oktatók, szótárak, felhaszná¬ 
lói, könyvelői, játék progra¬ 
mok 5 Ft-tól. Leírások 50 
Ft/oldal. Egyedi programok 
készítését vállalom. Boríté¬ 
kért tájékoztatom. Színes 
monitort, TV-t veszek. Föl¬ 
des Jánosné, 5000 Szolnok, 
Győrffy J. u. 12. 1/7. 

Szuper C-64 programok 3 
Mb-es lemezen! Leírással! 
25 Ft-os bélyegért színvona¬ 
las listát küldök. Boros At¬ 
tila, 4200 Hajdúszoboszló, 
Hősök tere 21. 

C-64-es lemezes programok 
cseréje és eladása 20 Ft/ol¬ 
dal, 5 Ft/db. Válaszboríté¬ 
kért listát küldök. Kázmér 
Attila, 6000 Kecskemét, Gi¬ 
zella tér 2. Tel.: 76 486-257. 


AMIGA 500 & AMIGA 500+ 
játék és felhasználói progra¬ 
mok 30 Ft + lemez áron 
kaphatók Évánál! Jó minő¬ 
ségben, garanciával. Listá¬ 
hoz szükséges: 1 db lemez 
(vagy 60 Ft) + 20 Ft-os vá¬ 
laszbélyeg. Cím: Kopácsi 
Lajosné, 1031 Budapest, Vi- 
zimolnár u. 2. X/95. 

C-64 és C+4-es programok 
eladása. Válaszborítékért lis¬ 
tát küldök. Bognár Péter, 
8900 Zalaegerszeg, Madách 
u. 6. 

Plus 4-re és C-64-re progra¬ 
mokat adok, veszek, cseré¬ 
lek. A cseréhez listát kérek. 
Válaszborítékért részletes 
listát küldök. A Demót ked¬ 
velők kíméljenek. Sok prog¬ 
ram, bő választék. Novák 
Péter, 1132 Budapest, Kresz 
Géza u. 21. 

SULI-SOFT Híradó: éves tag¬ 
sági díj ellenében (600 Ft/év) 
rnegrendelhető. Lugosi, 1327 
Újpest 3, Pf.: 91. 


- 
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O 

C-64-re keresem: POGO 
JOE, PAGEFOX. Cserébe 
akármi! Csak levélben! Var¬ 
ga Zoltán, 9730, Kőszeg, 
Petőfi tér 26. 

GEOS-, POUE lexikon kap¬ 
csolásirajz nyilvántartók C- 
64-re: 200 Ft + utánvéttel. 
Cím: Varsányi, Szombathely, 
Nagy L. u. 11. 

C-64 program 3 Ft-ért? 
Igen! Lemezre és kazettára, 
játékok, demók felhasználó¬ 
ik csak nálam! Cím: Kovács 
Krisztián, 6750 Szeged-Al- 
győ, Bartók Béla u. 6. 


C-64-es programokat cseré¬ 
lek és eladok. Lemezen 20 
Ft/db. Felbélyegzett válasz- 
borítékért listát küldök és 
kérek. Kázmér Attila, 6000 
Kecskemét, Gizella tér 2. 
Tel.:(76) 486-257. 

A számítógéppel támogatott 
oktatás témakörében saját 
fejlesztésű oktatópogramok, 
tankönyvek eladók. Commo¬ 
dore gépeken olvasható ka¬ 
talóguslemezt (300 Ft), de- 
molemezt (300 Ft) utánvét¬ 
tel, katalógusfüzetet (100 Ft) 
ellenében küldünk. Lugosi, 
1327 Újpest 3, Pf.: 91. 


C-64 játékkazetták (40-45 
játék/db) ára 250 Ft + játék¬ 
lemezek 60 Ft/db áron el¬ 
adók. Cím: Csernáth Zoltán, 
1171 Budapest, Alnok u. 5. 

A C-64 pályázat már folyik. 
35000 Ft-nyi bővítés a díj. 
Válaszborítékot küldj. Varsá¬ 
nyi, Szombathely, Nagy L. 
u. 11. 

C-64-re programok eladók 
lemezre és kazettára, ked¬ 
vezménnyel. Felbélyegzett 
válaszborítékért listát kül¬ 
dök. Papp Mihály, 4034 
Debrecen, Sterbinszky u. 37. 


Figyelem! Eladó óriási 
mennyiségű játék és felhaszná¬ 
lói program PC-re, már 80 
Ft/lemez ártól!!! Garantáltan 
vímsmentesek. Válszborítékra 
tájékoztató. Nagy István, 1202 
Budapest, Mártírok útja 151. 

Eladók fekete-fehér és zöld 
monitorok 5000 Ft/db. Ér¬ 
deklődni: Kázmér Attila, 
Tel.: (76) 486-257. 

C-64 tulajdonosok. Pályázat 
indult. Díjak 35.000 Ft-ért. 
Két válaszborítékot küldj. 
Varsányi, Szombathely, 
Nagy L. u. 11. 


NOVOTRADE—2C Kft. AJANLATA 

Hardverek Hardverkiegészítők 


C-64 alapgép 

ve 1541/11 floppy drlve 

Datasette 

Amiga 500 alapgép 
Amiga 500 Plus alapgép 
1351 Mouse (C-64-he2) 

A 520 RF modulátor 
Amiga tárbővítő 
RocHard Hard disk illesztő 
j RocHard Hard disk Illesztő + 

? 40 Mbyte Winchester 

RocGen Genlock RG300 
Ethernet Card (A2000-hez) 

MPS 1230 nyomtató 
Philips 8833/il. (Amiga, C-64) 

CÓ4 játékok kazettán és lemezen 

Chamonix Challenge 
Eddie Edwards Super Ski 
Hostages 

impossible Mission II 
Rolling T\Arins/l want more... 

Operation Neptune 

Prohibition 

Sim City 

Space Racer 

Tin Tin on the Moon 

Warlock's Quest 

Xonox 

I Import járékkazetták 

2C Áruház, Budapest XIII., Balzac u. 35. 
Tel.: 1402-954 


2 RCA kábel 

3 RCA kábel 
Hálózati kábel 
Adat kábel 
Antenna kábel 
Antenna váltókapcsoló 
C64/128 Euro kábel 
Amiga Euro kábel 
Ékezetes Eprom SP180 VC 
Ékezetes Eprom MPS 1230 
Joy (Quick Shot II Plus) 
Tápegység C64 
Tápegység VC 1541/11 

12" mono filter 
12" color filter 
14" mono filter 
14" color filter 


Disk 

Box 

5'25 

" 3 db 


Disk 

Box 

307 

5'25" 

50 

db ! 

Disk 

Box 

309 

5'25" 

100 

db 

Disk 

Box 

310 

5'25" 

120 

db 

Disk 

Box 

313 

3'5" 

10 

db 

Disk 

Box 

318 

3'5" 

40 

db 

Disk 

Box 

319 

3'5" 

80 

db 

Disk 

Box 

320 

3'5" 

140 

db 


Mouse Pad 581 
Mouse Pad + Holder 
Mouse Set 
Cleaner 562 5'25" 
Cleaner 563 3'5" 
Mouse Holder 
Mouse takaró 
Copy Holder 411 
Copy Holder 412 
Display szemüveg 
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EGYESÜLET 


ACOMP Kft. 

MÁJUSI 
60 Ft-os 

vásárlási utalványa 

Beváltható 500 Ft feletti 
készpénzes vásárlás esetén a 
1141 Budapest, Almos vezér útja 17. 
szám alatti üzletben. 

Érvényes: 1993. május 31-ig. 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


A NOVOTRADE SZERVÍZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadíjából 10% kedvez¬ 
ményt ad az egyesületi tagoknak. 


1083 Budapest, Szigony u. 9. 

3525 Miskolc, Fazekas u. 1—3. 

5600 Békéscsaba, Bartók B. u. 37. 
6724 Szeged, Csongrádi sugárút 76. 
8000 Székesfehérvár, Rádió u. 15/A. 
9700 Szombathely, Szalonak u. 31. 


Tel.: 134-3153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/313-377 
Tel.: 22/319-765 
Tel.: 94/14-519 


Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször Is igénybe vehető. 



MAKROVILÁG 

utazási iroda 

Beváltható 

utazás megrendelése esetén 

az Úllól úti főirodában az alábbiak szerint: 

5 000 Ft-lg — 200 Ft kedvezmény 

10 000 Ft-lg — 400 Ft kedvezmény 

20 000 Ft-lg — 500 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csoportok jelentkezése esetén további 
kedvezményekről az irodában lehet tárgyalni 



MÁJUSI 

60 

vásárlási Utalvány 


BeváfflEtÓ^Késipénzes 
vAfÉrlá* esetén ar2C Áruházban. 
Bp. Xtll., Balzac u. 35^ 

Érvényes: 1993. május 31-rg 


HOBBI ELEKTRONIKA 

MÁJUSI 
vásárlási utalványa 

Értéke: 

5000 Ft-lg 80Ft, 

5000 Ft felett 10% 

Beváltható a Hobbi Elektronika Kft.-nél. 
Budapest VII., Dózsa György u. 16. 
Telefon: 122-8892 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


Az Országos Commodore Egyesület szolgáltatásai 

Egyesületi tagoknak 20% kedvezmény: 


ve—20 memóriabővítés 3—27 kByte-os: kiépítéstől függő 

C—16, C—116 memóriájának bővítése 64 kByte-ra: 3500 Ft 

C—16 belső 16 kByte-os EPROM bővítés: 1460 Ft 

C—16 belső 32 kByte-os EPROM bővítés: 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C—16 belső 32 kByte-os SOFT—ROM bővítés: 4000 Ft 

C— 16 8 kByte-ról 32 kByte-ra átalakítás: 2000 Ft 

C—16 és 1541 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16. C-116, +4 5000 Ft 

FÉK C—16, C—116, +4 potméteres sebességváltoztatás 

0%-tól 100%-ig fokozatmentesen 2000 Ft 

TTL IC-teszter (Cartridge+lemezen a program) 4300 Ft 

+4, C—16, C—116 UNI—ROM modul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 


Egyesület tagoknak 30% kedvezmény: 


Speeddos (átkapcsolható) operációs rendszer beépítése 

(C64 átalakítás, lemezegység átalakítás párhuzamos kábel) 5000 Ft 

1541 kompatibilis lemezegységbe elektronikus lemezlyukasztó beépítése 900 Ft 

PAGEFOX magyar ékezetes kiadvány-szerkesztő cartridge 
(a teljes A/4-es oldal kinyomtatásához 640 pont/soros nyomtató szükesé- 
ges minimum, pl. Citizen 120D) 5500 Ft 

FASTLOAD cartridge (lemezes gyorstöltő, másoló, monitor) 1500 Ft 

TTL IC-teszter cartridge -i- program 4300 FT 

288/256 Kbyte-os eprombank (vezérlő eprommal) 5000 Ft 

Epromégető (2716-tól 27512-ig) 5000 Ft 

C64-hez tároló oszcilloszkóp 8000 Ft 

C64-bőv(tő-port elosztó (egyszerre 4 db cartridge lehet a gépben, melyeket 
gombnyomásra lehet kapcsolni) 75(X) Ft 

C64 USER - CENTRONICS nyomtatókábel (GEOS kábel) 1500 Ft 

256 K RAM-diszk (256 Kbyte RAM-mal) 14000 Ft 

256 K RAM-diszk (64 Kbyte RAM-mal) 9000 Ft 

2x64 Kbyte-os cartridge igény szerinti programokkal feltöltve 4.300 Ft 

64 Kbyte-os cartridge igény szerinti programokkal feltöltve 3000 Ft 

Képújság (teletext) dekóder C-64-re 10000 Ft 

Epromok programozása meglévő programokkal, vagy saját hozott progra¬ 
mok beégetésével 2716-tól 27612-ig az eprommal együtt egységesen 700 Ft 

Arainkat az alkatrészárak változásai befolyásolhatják. 

A fenti bővítések megrendelhetők levélben az O.C.E. címén, valamint sze¬ 
mélyesen a havonta rendezendő klubdélelőttön, ahol rendszeres bemutatót 
is tartunk. 


Postázás esetén 100 Ft postaköltség kerül felszámításra. 

A kedvezmény igénybevételéhez az O.C.E. tagsági igazolvány bemutatása 
szükséges. 
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Hivatalos magyarországi disztribútora: 



Cím: 1053 Budapest, Henszimann I. u. 9 
Telefon: 117-4144 Telefax: 117-9692 


Cserélhető lemezes winchester! 


Szervizeinkben és szerződött viszonteiadóinkon keresztüi az alábbiakat forgalmazzuk: 


SQ 555 

44 MB-os 5V4 

SCSI drive, 

SQ 400 lemez 

( 44 MB) 

SQ 5110 

88 MB-os 5V4 

SCSI drive, 

SQ 800 lemez 

( 88 MB) 

SQ 3105A 

105 MB-os 3V2 

AT-BUS drive, 

SQ 310 lemez 

(105 MB) 

SQ 2542A 

42 MB-os 2 V 2 

AT-BUS drive. 

SQ 240 lemez 

( 42 MB) 


v. 


Számítógépszerviz ! 


Személyi számítógépek és perifériák javítását, karbantartását továbbra is tőlünk 
rendelje meg! Gyors, pontos és megbízható! Örök garanciát kap, 
ha átalánydíjas javítási és karbantartási szerződésformánkkal 
védi nagyértékű gépei műszaki állapotát 


Várjuk jelentkezését az alábbi szervizeinkben: 


1083 

Budapest, 

Szigony u. 8. 

Tel. 

1343-153 

3525 

Miskolc, 

Fazekas u. 1^. 

Tel. 

46/321-488 

5600 

Békéscsaba, 

Bartók B. u. 37. 

Tel. 

66/327-195 

6724 

Szeged, 

Csongrádi sgt. 76. 

Tel. 

62/313-377 

8000 

Székesfehérvár, 

Rádió u. 15/a. 

Tel. 

22/319-765 

9700 

Szombathely, 

Szabnak u. 31. 

Tel. 

94/14-519 


NOVOTRADE SZERVIZ KFT. 













számítástechnikái kft. 


1141 Budapest, Álmos vezér útja 17., Tel.: 183-1817, Fax: 251-2523 


Commodore Amiga 500 32 900 Ft 

Commodore Amiga 500 Plus 32 900 Ft 

Commodore Amiga 600 33 500 Ft 

Commodore Amiga 1200 56 900 Ft 

Commodore Amiga 4000/040/6MB/120MB 279 000 Ft 
+ 4 MB RAM modul 29 000 Ft 

Commodore 1084 s Stereo-Color monitor 29 900 Ft 
Commodore A-520 TV-Modulator 3 500 Ft 

Commodore C-64 II 8 990 Ft 

Commodore C-64 + Joystick + játék 8 990 Ft 

Commodore C-128D 24 990 Ft 

Commodore 1541 II Floppy 11 750 Ft 

Commodore 1802 monitor 24 900 Ft 

Commodore Datassette 1 890 Ft 

Commodore MPS 1230 printer 22 900 Ft 

Philips 8833 II. Stereo-Color monitor 29 900 Ft 

512 Kb órás memóriabővrtő 3 200 Ft 

2.0 Mb órás memóriabővítő 14 900 Ft 

1.0 Mb-os chip bővítő Amiga 500 Plus-ba 5 900 Ft 

1.0 Mb-os órás chip bővítő Amiga 600-ba 6 900 Ft 

3.5” külső floppy drive 9 490 Ft 

Noris Amiga 500 porvédő 990 Ft 

Noris C-64 II porvédő 790 Ft 

Quickshot Apache Joystick 890 Ft 

Quickshot Phyton Joystick 990 Ft 

Quickshot QS - 113 analóg joystick 990 Ft 

Quickshot QS - 123 analóg joystick 990 Ft 

Noris mouse pad 250 Ft 

Noris MB 80 3.5" lemeztartó 490 Ft 

Noris DB 100 5.25” lemeztartó 490 Ft 

Noris üveg 14” monitorfilter 1 990 Ft 

Samsung 24 tűs printer 37 500 Ft 


NoName 3.5” DSDD lemez 460 Ft 

NoName 3.5” DSHD lemez 750 Ft 

NoName 5.25” DSDD lemez 200 Ft 

NoName 5.25” DSHD lemez 390 Ft 

Maxell 3.5" MF2-DD lemez 890 Ft 

3.5” MF2-HD lemez 1 550 Ft 

5.25” MD2-D lemez 590 Ft 

5.25” MD2-HD lemez 750 Ft 

3.5” DSDD lemez (11 db/For^_ 690 Ft 


3.5” DSHD lemez (11gdb/R) 090 Ft 



Ifíezfll 
d.let^zl ^ 
KTfí. + könyv 



Maxell 
Maxell 
Maxell 
Profex 
Profex 
Profex 
Fuji 

Amiga Aí|ien|ep 

4 Player‘1\dapter (4 Joystick csatoló) 
C-64 Action Replay MK VI. -r könyv 
C-64 midi szoftverrel 
C-64/C-128 mouse 

Swifty Amlga/Atari Mouse (3 gombos) 
Mouse/Joystick automatikus kiválasztó 
Midi Amiga Interface 
Handyscanner Amigához 
Boot Selector Amigához 
Stereo hangdigitalizáló Amigához 
Trackball Amigához 
Képdigitalizáló + RGB Splitter 
Rochard HD kontroller A500/A500-r 

+ 80 Mbyte Winchesterrel 
+ 1 Mbyte SIMM Ram 
Sound Blaster PRO Deluxe 
Sound Blaster 16 Bit 
Amiga Magazin (német) újság 
Power Play (német) újság 


430 Ft 
450 Ft 

9 990 Ft 

1 890 Ft 

5 900 Ft 

6500 Ft 

2 500 Ft 

2 500 Ft 

1 990 Ft 

2 990 Ft 
13 900 Ft 

1 490 Ft 

6900 Ft 

3 590 Ft 
12 900 Ft 
19 900 Ft 
44 900 Ft 

4 990 Ft 
18 900 Ft 
29 900 Ft 

450 Ft 
450 Ft 


Áraink az 1 év garanciát és az ÁFA-t tartalmazzák! 


Nyitvatartás 9—18 óráig, szombaton: 9—13 óráig. 

A bruttó árat előzetes átutalással, illetve a helyszínen készpénzben kérjük fizetni. 

Az árajánlatban szereplő adatok, árak mindenkori változtatásának jogát fenntartjuk! 













